Applies toTESBPCSEdit
DeclarationTKeyStringEvent = Procedure(Sender: TObject; var S: WideString; var Handled: Boolean) of object;