Applies toTWPRichText
DeclarationTNotifyEvent = Procedure(Sender: TObject) of object;
CategoryLoad and Save