Procedure TWPCustomRichText.SetFocusValues(Always:Boolean)Unit: WPCTRRichClass: WPCTRRich.TWPCustomRichTextParameters Always:Boolean