一次最简单的函数调用题，看你是否能拿分。

Question

function TForm1.add1(i:integer):integer;
var
j:integer;
begin
for j:=0 to 3 do
begin
  result:=i+j;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
showmessage(inttostr(add1(4)));
end;问题：显示多少个问题框，分别显示的是什么数值呢？

Answer 1

这段代码能编译吗？i在TFORM1中有定义或者是全局变量？显示一个框，值不能确定。

Answer 2

此时的值为7.....for j:=0 to 3 do
begin
  result:=i+j;   //因为result的值被覆盖..
end;楼主的问题是什么..?