Paradox em 10000

Pessoal
Tenho uma aplicacao rodando ha 1 ano e agora deu o seguinte problema.
Sempre pego o ultimo numero da tabela + 1 para gerar novo codigo, só que agora ele chegou em 10000 e sempre o proximo me retorna 10000 será que tem um limite para tabelas paradox ????.
Alguem sabe o por que?

Grato.


Delphi 7 X Paradox. Segue o código.
// -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Function AutoIncrementoManual(Const pAlias:String; pTabela:String; pCampo:String):Integer;
var
vQry : tQuery;
int : integer;
begin
vQry := tQuery.Create(Application);
with vQry do begin
DatabaseName := pAlias;
SQL.Add('Select Max(' + pCampo +') as Proximo');
SQL.Add('From '+ pTabela);
Open;
int:= FieldByName('Proximo').asInteger + 1;
Result := int;
free;
end; {with vQry}
end;
// -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*