[Fobus]

procedure TForm12.Button1Click(Sender: TObject);
var
i:integer;
toplam:integer;
begin

toplam:=0;
for i:=1 to strtoint(edit1.text) do
begin
toplam:=toplam+i;
end;
edit2.text:= edit1.text+' e kadar olan sayıların toplamı'+inttostr(toplam);

end;