Procedure TWPSetModeControl.SetFontNr(x:Integer)Unit: WPCTRRichClass: WPCTRRich.TWPSetModeControlParameters x:Integer