[AGAG4]

Prueba este código:

Código Delphi [-]
uses
  DBTables;
....
procedure PackTable(Table : TTable; ReCreateIndexes : Boolean);
begin
  if not (Table.Active and Table.Exclusive) then
    raise EDatabaseError.Create('Tabla Se encuentra Abierta y en Modo Exclusivo....');
  Check(DbiPackTable(Table.DataBase.Handle, Table.Handle,Nil, Nil, ReCreateIndexes));
end;

function Reindexar(Table : TTable):Boolean;
begin
  try
    result:=true;
    Table.Active := False;
    Table.Exclusive := True;
    Table.Active := True;
    PackTable(Table,True);
  except
    result:=false;
  end;
end;

Suerte!!!!