delphi 7 - delphi 2010 测试 for 循环中也能改变 循环变量的值为任意值

下面的函数是一个死循环不信的自己试下,这算是一个BUG还是？

procedure TForm1.Button1Click(Sender: TObject);

var

 i:integer;

 procedure b;

  begin

   i:=0;

  end;

begin

  for i:=0 to 1 do

  begin

   b;

    ShowMessage('OK');

  end;

end;