есть.
MouseZ называецца, тока "перехват" придется ручками организовывать, например:
if omz<>mouseZ()
if omz<MouseZ() // то колесико крутили в одну сторону
else
// в другую (какую именно выясни экспериментальным путем)
omz=mouseZ()
endif
идиома рабочая, за код не отвечаю, ибо писалось в браузере