有关DELPHI的一道习题 帮忙解答下

定义一个函数S（N）来实现1＋2＋3＋…N的和，编写一个程序，给出N的值，利用该函数求出1到N的累加和，如下图8－1所示。（程序有代码的写出主要代码，并将程序运行结果截一张图，下同。）

procedure TForm1.btn1Click(Sender: TObject);
var
i,sn:Integer;
begin
sn:=0;
for I := 1 to StrToInt(edt1.text) do
sn:=sn+i;
edt2.text:=inttostr(sn);
end;

end.