[lmpadron]

Saludos,
Recientemente encontré un código para implementar el uso de la rueda del mouse (wheel) en los Grid y otros componentes. El código estaba en Pascal y como trabajo con C++ lo traduje quedando algo asi
Código Pascal en el sitio web

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message
   (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;

Una ves traducido quedó algo asi.
Código C++

void __fastcall TForm3::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
	int i;
	if (Msg.message == WM_MOUSEWHEEL)
	{
		Msg.message = WM_KEYDOWN;
		Msg.lParam = 0;
		i = HIWORD(Msg.wParam);
		if (i == 120)
		{
			Msg.wParam = VK_UP;
		} 
	        else
	        {
		        Msg.wParam = VK_DOWN;
	        }
	        Handled = false;
       }
}

Como pueden ver en el código en Pascal no me funcionaba bien con el i > 0 porque i solo obtenía dos valores 65416 cuando se usaba el Wheel Down y 120 cuando se usaba el Wheel Up. Por lo que lo modifique en mi código en c++ poniendo i == 120
La pregunta concreta es, eso esta bien, I siempre obtiene esos valores en c++ o pueden variar, en caso de variar debería poner la condición i > algo, pues cual seria ese algo?
Gracias de antemano por su tiempo