[0nni]

В паскале нельзя объявлять static переменные, но можно сделать так. А глобальные переменные зло =)

Код:

{$J+}
function GetNextI : Integer;
const
  i : Integer = 0;
begin
  i := i + 1;
  Result := i;
end;
{$J-}