Applies toTWPRichText
DeclarationTWPClickTextEvent = Procedure(Sender: TObject; txtobj: TWPTextObj; par: TParagraph; posinpar: Integer) of object;