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;