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