empezar en 1 luego de un pack

[dtomeysoto]

gracias amigo por tu pronta respuesta, luego de escribir este post encontré en la web el siguiente código muy parecido al tuyo.

Código Delphi [-]
 
function ResetAutoInc(FileName: TFileName; NewValue:Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
try
Result := (Seek($49, soFromBeginning) = $49) and (Write(NewValue, 4) = 4);
finally
Free;
end;
end;