Mouse - usando wheel (rodinha)

TApplication on form

procedure Application1.OnMessage(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;