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;