Как упаковать БД в Builder 5

#include "Bde.hpp"
..........
DBIR1esult fDbiDoRestructure2(hDBIDb hDb, char *TblName)
{
DBIResult rslt;
CRTblDesc TblDesc;

memset((void *) &TblDesc, 0, sizeof(CRTblDesc));
lstrcpy(TblDesc.szTblName, TblName);
lstrcpy(TblDesc.szTblType, szPARADOX);
TblDesc.bPack = TRUE;
rslt = Chk(DbiDoRestructure(hDb, 1, &TblDesc, NULL, NULL, NULL, FALSE));
if(rslt == DBIERR_NONE)
ShowMessage("Successful Pack");

return rslt;
}
//вызываю
fDbiDoRestructure2(DataModule1->Documents->Handle, "Documents");
//Что не так?