Procedure TWPSetModeControl.ASet(WPAT_Code:Byte; Value:Integer)Unit: WPCTRRichClass: WPCTRRich.TWPSetModeControlParameters WPAT_Code:Byte Value:Integer