Как восстановить индексы?

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

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php