ZERAR o valor de um campo Auto-Incremento

function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
//FileName é o nome da tabela, incluindo o caminho. Base é novo valor
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
Result:=(Seek($49,soFromBeginning)=$49)and(Write(Base,4)=4);
end;