TMouseWheelEvent = procedure (Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean)
Событие поворота колесика мыши.
Параметры:
Sender - источник события.
Shift - состояние управляющих клавиш и кнопок мыши.
WheelDelta - на сколько ступенек повернуто колесо.
MousePos - позиция указателя мыши в клиентских координатах.
Handled - установите в True, если событие было обработано.
Ссылки: TControl.OnMouseWheel