Borrar físicamente registros en DBF

[dec]

¿Cómo puedo borrar físicamente en dbf's los registros marcados?

(La estructura básica pertene a I. Marteens)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  PackDbf('tu_alias','tu_tabla.dbf');
end;

Procedure PackDbf(const ADatabase,Atable:String);
begin
  With TTable.Create(nil) do
    try
      DatabaseName:=ADatabase;
      TableName:=ATable;
      Exclusive:=True;
      Open;
      Check(DbiPackTable(Database.Handle,Handle,'','',True));
    finally
      Free;
  end;
end;