Zerar campo auto incremento da tabela paradox

Function Zerar(Tabela: TFileName; num: Longint): Boolean;
begin
with TFileStream.Create(Tabela, fmOpenReadWrite) do
Result := (Seek($49, soFromBeginning) = $49) and (Write(num, 4) = 4);
end;


//Utilize a função assim:

if Zerar('c:diretoriotabela.db',0) then
Showmessage('campo autoincremento zerado')
else
Showmessage('nao foi possível zerar o campo autoincremento ')