Замена пароля для таблицы Paradox из приложения

Как сменить пароль (master password) для таблицы Paradox?

Пример:

var
  db: TDatabase;
  Desc: CRTblDesc;
begin
  db := Table1.OpenDatabase;
  FillChar(Desc, SizeOf(Desc), #0);
  StrCopy(Desc.szTblName, PChar(Table1.TableName));
  StrCopy(Desc.szTblType, szParadox);
  StrCopy(Desc.szPassword, 'password');
  Desc.bProtected := TRUE;
  Check(DbiDoRestructure(db.Handle, 1, @Desc, nil, nil, nil, FALSE));
end;