我用delphi编写了一个求自然数１－Ｎ程序（完全按照书上的代码）能执行但是结果出来的并不是求和的结果，而是你输入的Ｎ，请教那里出错了（有几个程序都是类似的情况）能编译，但是结果出错．代码如下：
var
n,m,i:integer;
begin
m:=0;
n:=strtoint(Edit1.Text);
for i:=1 to n do
m:=m+1;
Label2.Caption:=Format('1+2+...+%d',[n]);
Edit2.Text:=inttostr(m);
end;