[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls,Db, DBTables,  Bde;
   
  type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.DFM}
  
  procedure RegeneraIdx(Const ADatabase, ATable : String);
  begin
   with TTable.Create(nil) do 
    try
     DatabaseName := ADataBase;
      TableName := ATable;
      Exclusive := True;
      Open;
      Check(DbiRegenIndexes(Handle));
    finally
     Free;
    end; 
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   RegeneraIdx('DbDemos', 'Customer.db');
  end;

Un Saludo.