Procedure TWPCustomRichText.ApplyFont(x:TFont)Unit: WPCTRRichClass: WPCTRRich.TWPCustomRichTextParameters x:TFont