Applies toTWPRichText
DeclarationTWPAfterCompleteWordEvent = Procedure(Sender: TObject; var lastchar: Char) of object;