Delete en una DBF

[pcicom]

Las tablas planas DBF unicamente marca los registros como eliminados, para eliminarlos fisicamente deberas de hacer PACK en la tabla..

Puedes intentarlo de la siguiente forma.

Código Delphi [-]
procedure PackDBF(Tabla:Ttable);
begin
   Try
      Check(DbiPackTable(tabla.DBHandle,tabla.Handle,nil,szDBASE,True));
   except
      showmessage('Ocurrio un error al hacer pack');
   end;
end;