1 . paradox.lck
 2 . pdoxusrs.lck
 3 . pdoxusrs.net

procedure TForm1.bbtnIndClick(Sender: TObject);

var
  Props: CURProps;
  hDb: hDBIDb;
  TableDesc: CRTblDesc;
  SearchRec :TSearchRec;
  lbCap,flbs : String;
begin
DBase.Open;
flbs := DBase.Directory;
  if FindFirst (flbs+'*.db', faAnyFile, SearchRec) =  0  then
  repeat
    tabInd.Close;
    tabInd.TableName := SearchRec.Name;
    Label87.Caption := SearchRec.Name;
    tabInd.Exclusive := true;
//    tabInd.Active;
    tabInd.Open;
    fDbiRegenIndexes(tabInd);
begin
    // Blank out the structure... 
    FillChar(TableDesc, sizeof(TableDesc),  0 );
    // Get the database handle from the table's cursor handle...
    Check(DbiGetObjFromObj(hDBIObj(tabInd.Handle), objDATABASE, hDBIObj(hDb)));
    // Put the table name in the table descriptor...
    StrPCopy(TableDesc.szTblName, tabInd.TableName);
    // Put the table type in the table descriptor...
    StrPCopy(TableDesc.szTblType, Props.szTableType);
    // Set the Pack option in the table descriptor to TRUE...
    TableDesc.bPack := True;
    // Close the table so the restructure can complete...
    tabInd.Close;
    // Call DbiDoRestructure...
    Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
//  ^^ чтоб ишо и уничтожить удаленные записи в основном пидарокс табле
// воставовить dbiUndeleteRecord
    Application.ProcessMessages;
  until FindNext (SearchRec) <> 0;
  DBase.Close;
  DBase.Open;
Label87.Caption := 'ГОТОВО!!!';
end;