Cпасибо пойду поищу
Здравствуйте Нечитайленко В.В., Вы писали:

НВВ>Поищи на Форуме Королевство Делфи — там есть пример
НВВ>App.OnMessage — замена события колеса на клавиатурное вверх-вниз