procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
      s:=0;
      for i:=1 to StrToInt (Edit1.text) do
begin
s:=s+i;
end;
label1.caption:='сумма = ' + intTostr (s);
end;
end.