type
  TacAppMouseMoveEvent = procedure(Sender: TObject; ShiftState: TShiftState; ScreenPoint: TPoint; WindowHandle: hWnd; HitTestCode: Integer) of object;