Membuat Deret Bilangan

procedure TForm2.Button1Click(Sender: TObject);
var a:integer ;
begin
Memo1.Text := '';
Memo2.Text := '';

for a := 1 to 100 do begin
  Memo1.Text := Memo1.Text + IntToStr(a) + ' ';
  Memo2.Lines.Add(IntToStr(a)) ;
end;

end;