type
TacAppMouseEvent =
procedure
(Sender: TObject; Button: TMouseButton; Shift: TShiftState; ScreenPoint: TPoint; WindowHandle: hWnd; HitTestCode: Integer)
of
object
;