1 den girilen sayıya kadar toplamını bulma

[micra]

ben 2 tane edit birtane butondan bir program yapmak için ugrasıyorum
brda amacım edit1 e sayı girilsin
buton basınca edit 2de toplamı yazsın
yani örnegin 10 girildiyse
1 den 10 kadar olan sayıların toplamını yazsın
ben söyle bir kod yazdım
yanlıs nerde
dogrusu ne olması lazımdı
teşekkürler


{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);
{$j+}
const
toplam:integer=0;
var
deger:integer;


begin

deger:=strtoint(edit1.Text);
deger:=deger+0;
toplam:=toplam+deger;
edit2.text:=inttostr(deger)+
'e kadar toplamı='+inttostr(toplam)+'eder';
;


end;

end.

[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;

[mustafa]

toplam=strtoint(edit1.text)*(strtoint(edit1.text)+ 1)/2;

[hmustak]

mustafa, mesajından alıntı:

toplam=strtoint(edit1.text)*(strtoint(edit1.text)+ 1)/2;

işte budur bide okulda bişey öğretilmiyor derler

[micra]

teşekkürler arkadaşlar