怎样用DbiDoRestructure(上次我说成DbiPackTable,错了)函数来整理Paradox数据库？

void __fastcall TForm1::Button1Click(TObject *Sender)
{
DBIResult rslt;
CRTblDesc TblDesc;
hDBIDb hDb;

Table1->Exclusive = TRUE;
Table1->Open() ;
hDb=Table1->DBHandle ;
memset((void *) &TblDesc, 0, sizeof(CRTblDesc));
lstrcpy(TblDesc.szTblName,"employee.db");
lstrcpy(TblDesc.szTblType, szPARADOX);
TblDesc.bPack = TRUE;
Table1->Close();
rslt = DbiDoRestructure(hDb, 1, &TblDesc, NULL, NULL,NULL, FALSE);
if (rslt == DBIERR_NONE)
ShowMessage("Successful Pack");
Table1->Exclusive = FALSE;
}