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