Applies toTESBBaseEdit
DeclarationTKeyEvent = Procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of object;