在Free Pascal下没有问题，怎么到Delphi中就不正确了？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i,x,y,z: integer;
begin
  for i := 100 to 999 do
    begin
      x := i div 100;
      y := i mod 100 div 10;
      z := i mod 10;
      if x*x*x+y*y*y+z*z*z=i then
        begin
          Memo1.Lines.Text:= IntToStr(i)+#13;
        end;
    end;
end;求水仙花数的！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i,x,y,z: integer;
begin
  for i := 100 to 999 do
    begin
      x := i div 100;
      y := i mod 100 div 10;
      z := i mod 10;
      if x*x*x+y*y*y+z*z*z=i then
        begin
          Memo1.Lines.Add( IntToStr(i));
        end;
    end;
end;

Answer 2

Memo1.Text:= Memo1.Text+IntToStr(i)+';';

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i,x,y,z: integer;
begin
  for i := 100 to 999 do
    begin
      x := i div 100;
      y := i mod 100 div 10;
      z := i mod 10;
      if x*x*x+y*y*y+z*z*z=i then
        begin
          Memo1.Text := Memo1.Text+IntToStr(i)+';';
        end;
    end;
  Memo1.Lines.Add(#13)
end;