1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

 Table1.Close;
   Table1.Exclusive := True;
   Table1.Open;
   except
       end;


    try
   res := DbiRegenIndexes(Table1.Handle);
   if res <>  DBIERR_NONE   then
   begin
   DBIError(res);
   end;
    except
end;
 Table1.Close;
    Table1.Exclusive := FALSE;
   try
   Table1.Open;
   except
   end;