Fórum .......Reindexando índices........ #165002

Caro Jairo, vê se isso resolve o seu problema.

function Reindexar(Tabela: TTable): integer;
begin
Tabela.Close;
Tabela.Exclusive:= True;
Tabela.Open;
case DbiRegenIndexes(Tabela.Handle) of
DBIERR_NONE: Result:= 0; //Ok
DBIERR_INVALIDHNDL: Result:= 1; //Tabela inválida
DBIERR_NEEDEXCLACCESS: Result:= 2; //Tabela em modo compartilhado
DBIERR_NOTSUPPORTED: Result:= 3; //Indices não suportados
else
Result:= 4; //Indices não criados
end;
Tabela.Close;
end;