//ROLETE DO MOUSE NOS COMPONENTES

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,

bool &Handled)

{

if (Msg.message == WM_MOUSEWHEEL)

{

Msg.message = WM_KEYDOWN;

Msg.lParam = 0;

Msg.wParam = ((signed long)Msg.wParam > 0 ? VK_UP : VK_DOWN);

Handled = false;

}

}