[aram2r]

bueno gracias por todo pero creo q con esto lo he solucionado.....



procedure TFormPrincipal.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;