type
TMouseEvent =
procedure
(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
of object
;