Applies toTESBPCSEdit
DeclarationTMouseEvent = Procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;