Procedure TWPSetModeControl.SetParProtect(x:Boolean)Unit: WPCTRRichClass: WPCTRRich.TWPSetModeControlParameters x:Boolean