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