[Dux]

//В разделе Public укажите:

Код:

procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

//В разделе Implementation:

Код:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);   
var     
i: SmallInt;   
  begin     
   if Msg.message = WM_MOUSEWHEEL then     
     begin       
      Msg.message := WM_KEYDOWN;       
      Msg.lParam := 0;       
      i := HiWord(Msg.wParam);       
         if i > 0 then         
            Msg.wParam := VK_UP       
         else         
            Msg.wParam := VK_DOWN;         
     Handled := False;     
     end;   
  end;

// В файле проекта перед Application.Run запишите:

Код:

Application.OnMessage := Form1.AppMessage;