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