用delphi写一条1--10累加和的程序！！！急。在线等

procedure TForm1.Button1Click(Sender: TObject);
var i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+i;
end;
showmessage(inttostr(sum));

end;

真晕了.....就一个循环语句..加一个变量累加而已..