[JoysticK]

Gracias Caro, segun la web tengo que añadir un componente TApplicationEvent, de la paleta "Additional" y en el OnMessage de este componenete añadir el codigo:

Código Delphi [-]
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;

La variable I la he definido como Word, pero me devuelve unos valores bastante extraños, si doy ruleta arriba me devuelve 120, 360, 480, dependiendo de la velocidad con la que gire la ruleta, si hago ruleta abajo 65416,65296,64936.... Unos valores muy raros... al final voy a dejar el codigo asi:

Código Delphi [-]
if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_KEYDOWN;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam) ;

     if i < 1100 then
       Msg.wParam := VK_UP
     else
       Msg.wParam := VK_DOWN;

     Handled := False;
   end;

Y vere si me hace cosas raras en otros ordenadores, gracias por el cable nuevamente Caro