Paradox - resetar campo autoinc

Function ResetAutoInc(FileName : TFileName; Base : LongInt) : Boolean;

Begin

   With TFileStream.Create(FileName, fmOpenReadWrite) do

      Result := (Seek($49, soFromBeginning) = $49) And (Write(Base, 4) = 4);

End;

Exemplo:

   ResetAutoInc(Tabela, 0);

Tabela:=Nome da Tabela e o 0 é o numero em que vc quer iniciar!