Как прокрутить полосу прокрутки TScrollbar с помощью колесика мыши?

У меня есть TScrollBar с кодом в событии OnScroll.

Я хочу прокрутить его с помощью колесика мыши, но поворот колесика мыши не прокручивает полосу прокрутки и не вызывает событие OnScroll.

Есть идеи?