uses
dbTables, DbiProcs;
begin
...
table1.exclusive := true;
table1.open;
dbiRegenIndexes(table.Handle);
end;