Procedure TWPCustomRichText.OnReplace(Sender:TObject)Unit: WPCTRRichClass: WPCTRRich.TWPCustomRichTextParameters Sender:TObject