procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;

begin
      s:=0;
      for i:=1 to intTostr (Edit1.text) do
begin
s:=s+i;
label1.caption:=intTostr (s);

end;
end;

end.