TOnMouseWheel

type

TOnMouseWheel = procedure (Sender: TObject; VideoWindow: LongInt;

Type of the OnMouseWheel event.

The DirectionUp parameter returns: - true when the mouse wheel goes up, - false when the mouse wheel goes down.