1'den n'e kadar sayıların toplamını gösteren kod

procedure TForm1.Button1Click(Sender: TObject);
var
n,toplam,i:integer;
begin
toplam:=0;
n:=strtoint(edit1.text);
for i:=1 to n do
 begin
   toplam:=toplam+i;
   edit2.text:=inttostr(toplam);
 end;
end;

end.