急急急！！！！真是见鬼了，xxx:=xxx+1; 执行不了？？？？

procedure TForm1.Button4Click(Sender: TObject);
var
  MyCount, MyButtonSize, MyLineCount, MyLineCountI,iiii: Integer;
  ButtonState :array[0..1] of integer;
  i,n,iii,j:integer;
  TitleS, AliasNameS,ContentS ,aaa: String;
  xxx,xxxx :integer;
begin
  MyCount := Dm.DSBSJLStr.DataSet.RecordCount;
  SetLength(AButton, MyCount);
  ButtonState[0] := 8;
  ButtonState[1] := 8;
  RichEdit1.Lines.Clear;
  MyLineCount := Form1.RichEdit1.Lines.Count;
  for i:= 1 to 9 do
  begin
  AButton[i]:=TButton.create(self);
  AButton[i].parent:=ScrollBox1;
  AButton[i].Name := 'Btn_' + DM.DSBSJLStr.DataSet.fieldbyname('AliasName').AsString ;
  AButton[i].caption:=DM.DSBSJLStr.DataSet.fieldbyname('ContentName').AsString ;
  AButton[i].Width  :=DM.DSBSJLStr.DataSet.fieldbyname('ButtonWidth').AsInteger ;
  AButton[i].Height :=DM.DSBSJLStr.DataSet.fieldbyname('ButtonHeight').AsInteger;
  AButton[i].Left := ButtonState[0] ;
  AButton[i].top  := ButtonState[1] ;
  AButton[i].OnClick:=ButtonTongYongclick;
  ButtonState[1] := ButtonState[1] + 30;
  TitleS := DM.DSBSJLStr.DataSet.fieldbyname('ContentName').AsString + ': ';
  AliasNameS := DM.DSBSJLStr.DataSet.fieldbyname('AliasName').AsString ;
  ContentS := Dm.DSContent.DataSet.fieldbyname(AliasNameS).AsString;
  RichEdit1.Lines.Append(TitleS + ContentS);
  if (RichEdit1.Lines.Count > MyLineCount+1) then
  begin
    iiii := RichEdit1.Lines.Count-MyLineCount-2;
    for MyLineCountI := 0 to iiii do
    begin
        xxx := RichEdit1.Lines.Count;
        richedit1.Lines.Strings[MyLineCount+MyLineCountI+1]:= #13+'        '+richedit1.Lines.Strings[MyLineCount+MyLineCountI+1];
        if (RichEdit1.Lines.Count > 5) then    //从此处开始看 
        begin
        aaa:='aaa';                            //可以执行    
        xxxx := 1;   //压根就不执行，就象没有 一 样    
        showmessage('fdasfa'); //可以执行    
        end;                                  //从此处结束
    end;
  end;
  MyLineCount := RichEdit1.Lines.Count;
  DM.DSBSJLStr.DataSet.Next;
  end;
end;