Вычислить 1+2+3+4+.+n

procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
b:Integer;
c:Integer;
begin
b:=0;
c:=StrToInt(Edit1.Text);
for a:=0 to c do
b:=b+a;
Edit2.Text:=IntToStr(b);
end;