procedure TForm1.Button1Click(Sender: TObject);

 begin

   Table.Close;

   Table.Exclusive := True;

   Table.Open;

   DbiRegenIndexes(Table.Handle);

   Table.Close;

 end;