[Delphi] Jak użyć rolkę myszki?

Piszę komponent typu TScrollBar, nie wiem jednak jak zmieniać pozycję suwaka tego komponentu za pomocą rolki w myszce? ;)

WM_MOUSEWHEEL