procedure TForm1.Button1Click(Sender: TObject);
 begin
 Table.Close;
 Table.Exclusive := True;
 Table.Open;
 DbiRegenIndexes(Table.Handle);
 Table.Close;
 end;