Procedure TWPCustomRtfEdit.CheckActiveText(CreateIfNecessary:Boolean)Unit: WPCTRMemoClass: WPCTRMemo.TWPCustomRtfEditParameters CreateIfNecessary:Boolean