DelphiX DXInput Obsługa pada....

Witam... Mam mianowicie następujący problem. Chciałbym odczytać stan przycisków gamepada ale nie wiem jak ... kiedyś to robiłem w Delphi 4 i działało ... obecnie siedzę na D7 i nie ma takiej opcji aby odczytać stan przycisków... Wiem że temat był wiele razy poruszany ale nikt do końca nigdy go nie wyjaśnił...
JAK ODCZYTAĆ STAN PRZYCISKÓW PADA przy pomocy DxInput z pakietu DelphiX.... i tak robię UPDATE'a..A najlepiej jakby np. stan przycisku 1...2...3 zapisywać do Label.Caption

unit joypad;

interface 

uses MMSystem,sysutils,windows;

 type TPOVControl = record
    up,down,left,right:boolean;
  end; 

  { TGamepad - A wrapper class for the Windows-Joystick-API} 
  TGamepad = class 
    private 
      FRange:integer; 
      FDeadZone:integer; 
      function GetButton(index:integer):boolean; 
      function GetX:integer; 
      function GetY:integer; 
      function GetZ:integer; 
      function GetR:integer; 
      function GetU:integer; 
      function GetV:integer; 
      function GetPOV:TPOVControl; 
      procedure UpdateDeviceNr(nr:cardinal); 
    protected 
      Device:TJoyInfoEx; 
      DeviceInfo:TJoyCaps; 
      FDeviceNr:Cardinal; 
      CenterX,CenterY,CenterZ:Integer; 
      CenterR,CenterU,CenterV:Integer; 
    public 
      property DeviceNr:Cardinal read FDeviceNr write UpdateDeviceNr; 
      procedure Update; 
      procedure Calibrate; 
      constructor Create; 
      property X:integer read GetX; 
      property Y:integer read GetY; 
      property Z:integer read GetZ; 
      property R:integer read GetR; 
      property U:integer read GetU; 
      property V:integer read GetV; 
      property Range:integer read FRange write FRange; 
      property DeadZone:integer read FDeadZone write FDeadZone; 
      property POV:TPOVControl read GetPov; 
      property Buttons[index:integer]:boolean read GetButton; 
  end; 

implementation 

{ TGamepad } 

function TGamepad.GetX:integer; 
begin 
  result := round(range/32767*(Device.wXpos-CenterX)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetY:integer; 
begin 
  result := round(range/32767*(Device.wYpos-CenterY)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetZ:integer; 
begin 
  result := round(range/32767*(Device.wZpos-CenterZ)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetR:integer; 
begin 
  result := round(range/32767*(Device.dwRpos-CenterR)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetU:integer; 
begin 
  result := round(range/32767*(Device.dwUpos-CenterU)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetV:integer; 
begin 
  result := round(range/32767*(Device.dwVpos-CenterV)); 
  if abs(result) <= deadzone then result := 0; 
end; 

function TGamepad.GetPOV:TPOVControl; 
begin 
  //Verarbeitet die Daten des Steuerkreuzes 
  result.up := false; 
  result.left := false; 
  result.down := false; 
  result.right := false; 
  if Device.dwPOV = 0 then begin result.up := true; end; 
  if Device.dwPOV = 4500 then begin result.up := true; result.right := true end; 
  if Device.dwPOV = 9000 then begin result.right := true; end; 
  if Device.dwPOV = 13500 then begin result.down := true; result.right := true end; 
  if Device.dwPOV = 18000 then begin result.down := true; end; 
  if Device.dwPOV = 22500 then begin result.down := true; result.left := true; end; 
  if Device.dwPOV = 27000 then begin result.left := true; end; 
  if Device.dwPOV = 31500 then begin result.left := true; result.up := true; end; 
end; 

procedure TGamepad.Update; 
begin

  if (DeviceInfo.wCaps and JOYCAPS_HASZ) <> 0 then Device.dwSize := sizeof(tjoyInfoEx); 
  Device.dwFlags:=JOY_RETURNALL; 
  JoygetposEx(DeviceNr,@device); 
end; 

procedure TGamepad.UpdateDeviceNr(nr:cardinal); 
begin 
  //0...15 Devices/Gampads/Joysticks 
  FDeviceNr := nr; 
  joyGetDevCaps(FDeviceNr, @DeviceInfo, sizeof(DeviceInfo)); 
end; 

constructor TGamepad.Create; 
begin 
  inherited Create; 
  DeviceNr := 0; 
  Range := 1000; 
  DeadZone := 400; 
  Calibrate; 
end; 

procedure TGamepad.Calibrate; 
begin 
  //Liest die Nullstellung der Achsen ein 
  if (DeviceInfo.wCaps and JOYCAPS_HASZ) <> 0 then Device.dwSize := sizeof(tjoyInfoEx); 
  Device.dwFlags:=JOY_RETURNCENTERED; 
  JoygetposEx(DeviceNr,@device); 
  CenterX := device.wXpos; 
  CenterY := device.wYpos; 
  CenterZ := device.wZpos; 
  CenterU := device.dwUpos; 
  CenterV := device.dwVpos; 
  CenterR := device.dwRpos; 
end; 

function TGamepad.GetButton(index:integer):boolean; 
begin 
  //Liest die Position der Buttons ein. 
  result := false; 
  if index in [0..31] then 
  begin 
    result := device.wbuttons and (1 shl (index)) > 0; 
  end; 
end;

end.