Reindexar en Paradox

[DarkSide]

Ok, muchas gracias nuevamente Marcos.

Lamento realmente molestar tanto, pero al reindexar los archivos me arrojo el siguiente error: "Table is busy".

El codigo utilizado es el siguiente:

  Table1.Close;
  Table1.Exclusive:= True;
  Table1.Open;
  fDbiRegenIndexes(Table1);
  Table1.Close;
  Table1.Exclusive:= False;

Y el codigo de la función es:

procedure TfrmEmiteInforme.fDbiRegenIndexes(TblName: TTable);
begin
  Check(DbiRegenIndexes(TblName.Handle));
end;
{la misma del ejemplo, je, je, je}

Gracias.