[PhoeniX]

балин, а просто перед первым использованием прописать

Код:

var
  i:integer;
begin
  i:=0;
  ...
  ...
end;

не дано?