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