[delphi-br] Zerar auto-incremento

[caionmoreno]

Quando tento zerar o auto-incremento da minha tabela usando a função:
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;

Ela me retorna erro, que não pode abrir o arquivo
(C:\winvenda\database\ctlLanctos.db)
Alguem sabe porque está acontecendo isso??
Ou o que eu posso fazer para que não aconteça isso???
Obrigado!