void __fastcall TForm1::AEMessage1(tagMSG &Msg, bool &Handled)
{
        short i;
        // Сообщения для контрола
        switch(Msg.message) {
            case WM_MOUSEWHEEL : {
              if(Msg.hwnd == MyControl->Handle) // MyControl - то, где надо отработать
              {
                Msg.message =  0 ;
                Msg.lParam =  0 ;
                i = HIWORD(Msg.wParam);
                if(i >  0 ) Msg.wParam = VK_UP;
                else Msg.wParam = VK_DOWN;
                if(Msg.wParam == VK_UP) {
                    // Делаем чего надо
                }
                if(Msg.wParam == VK_DOWN) {
                    // Делаем чего надо
                }
                Msg.wParam =  0 ;
                Handled = false;

                return;
              }
            }
        }
}