TMouseWheelEvent = procedure (Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean)

Событие поворота колесика мыши.

Параметры:

• Sender - источник события.
• Shift - состояние управляющих клавиш и кнопок мыши.
• WheelDelta - на сколько ступенек повернуто колесо.
• MousePos - позиция указателя мыши в клиентских координатах.
• Handled - установите в True, если событие было обработано.

Ссылки: TControl.OnMouseWheel