ملئ الفراغ عند حذف سجل في جدول paradox

PHP كود :

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;

PHP كود :

(*Si tu implementes la procedure setAutoInc(sFilename : string; 
iValeur:Longint) alors cette procedure permet d'effacer la 
valeur iValeur à l'auto-increment de la table paradox sFilename. 
Attention il faut donner le chemin complet du fichier *.db 
correspondant à ta table paradox.

Par exemple, pour re-initialiser l'auto-increment de la table C:\Database\MaTable.DB :

setAutoInc('C:\Database\MaTable.DB',0)*)

unit UbsDBUtils;
 
interface
uses
  classes,
  Sysutils;
 
procedure setAutoInc(sFilename : string; iValeur:Longint);
function GetAutoInc(sFilename : string): Longint;
 
implementation
 
function GetAutoInc(sFilename : string): Longint;
var
   myStream : tFileStream;
begin
   result := -1;
   myStream := tFileStream.create(sFileName, fmOpenRead + fmShareExclusive);
   myStream.Seek(73, soFromBeginning);
   //myStream.WriteBuffer(iValeur, 4);
   myStream.ReadBuffer(result,4);
   myStream.Free;
end;
 
procedure setAutoInc(sFilename : string; iValeur:Longint);
var
   myStream : tFileStream;
begin
   myStream := tFileStream.create(sFileName, fmOpenWrite + fmShareExclusive);
   myStream.Seek(73, soFromBeginning);
   myStream.WriteBuffer(iValeur, 4);
   myStream.Free;
end;