Protéger une table Paradox avec un mot de passe

procedure ChangeMasterPassword(Tbl: TTable; const APassword:String;
AFlag:Boolean);
var
hDb: hDbiDb;
TblDesc: CRTblDesc;
szDir : array[0..dbiMaxNameLen] of Char;
begin
Check(DbiGetDirectory(Tbl.DBHandle, False, szDir));
try
FillChar(TblDesc, sizeof(CRTblDesc), #0);
Tbl.DisableControls;
Tbl.Close;
Check(DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil,
0, nil, nil, hDb));
Check(DbiSetDirectory(hDb,szDir));
TblDesc.bProtected:=AFlag;
if AFlag then StrPCopy(TblDesc.szPassword,APassword);
StrPCopy(TblDesc.szTblName, Tbl.TableName);
StrCopy(TblDesc.szTblType, szParadox);
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False));
finally
Check(DbiCloseDatabase(hDb));
Tbl.EnableControls;
Tbl.Open;
end;
end;