Leer pulsos de JoyStick

[oniacziv]

Buen día
Necesito leer los pulsos de un joystick tengo código para leer teclado y ratón

Código Delphi [-]
void __fastcall TFPrincipal::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
       switch(Msg.message){
        case WM_KEYDOWN:
        case WM_MBUTTONDOWN:
        case WM_LBUTTONDOWN:
        case WM_RBUTTONDOWN:
        if(Msg.wParam == 2 ){
         
           }
        if(Msg.wParam == 1){
           
           }
        break;
        break;
        break;
        break;

        case WM_KEYUP:
        case WM_MBUTTONUP:
        case WM_LBUTTONUP:
        case WM_RBUTTONUP:
          
         if(Msg.wParam == 17){
               
                   }
            else {
                   
                      }

             if(Msg.wParam == 78){
                
                }
            
        break;
    }
}
//---------------------------------------------------------------------------