Indexovanie v BDE

// ............................................................................
// obnova indexov
procedure TForm1.Button2Click(Sender: TObject);
var
   cnt : Word;

begin
   with Table1 do
      begin
        Close;
        Exclusive := true;
        cnt := IndexDefs.Count;
        if cnt > 0 then
           begin
              showmessage('Refresh indexov');
              Check(dbiRegenIndexes(Handle));
           end
        else
           begin
              showmessage('Vytvorenie indexov');
              IndexDefs.Clear;
              IndexName := 'Hbf';
              IndexDefs.AddIndexDef.Fields := 'Rok + c_faktury';
              AddIndex('Hbf', 'Rok + C_faktury',  [ixExpression]);
              IndexDefs.Update;
           end;
          close;
          Exclusive := false;
      end;
end;