DirectInput , como capturar mi Control ?

[ValinOne]

Hola
bueno, la solucion que encontre fue esta:

en el evento OnTimer de un Timer puse este codigo

Código Delphi [-]
var
  MyJoy: TJoyInfo;
  ErrorResult: MMRESULT;
begin
  ErrorResult := joyGetPos(joystickid1, @MyJoy);

  if ErrorResult = JOYERR_NOERROR then begin

    if (MyJoy.wbuttons and JOY_BUTTON1) > 0 then
      ShowMessage('Boton 1 presionado');
    if (MyJoy.wbuttons and JOY_BUTTON2) > 0 then
      ShowMessage('Boton 2 presionado');
    if (MyJoy.wbuttons and JOY_BUTTON3) > 0 then
      ShowMessage('Boton 3 presionado');
    if (MyJoy.wbuttons and JOY_BUTTON4) > 0 then
      ShowMessage('Boton 4 presionado');
    if (MyJoy.wbuttons and JOY_BUTTON5) > 0 then
      ShowMessage('Boton 5 presionado');
    if (MyJoy.wbuttons and JOY_BUTTON6) > 0 then
      .......
      .......
      .......

  end
  else begin
    Timer1.Enabled := False;
    ShowMessage('¡¡ JoyStick Error !!');
  end;

Gracias por la ayuda !