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)


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;