procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
For i := 1 to 1000 do form1.memo1.Lines.Add(Inttostr(i));
end;