1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses
  MmSystem;

{ ... }

var
  J: TJoyInfo;
  PosX, PosY, PosZ: Cardinal;
  Button1, Button2, Button3, Button4: Boolean;
begin
  JoyGetPosEx(JoystickId1, @J);
  PosX := J.wXpos;
  PosY := J.wYpos;
  PosZ := J.wZpos;
  Button1 := J.wButtons And Joy_Button1 <> 0;
  Button2 := J.wButtons And Joy_Button2 <> 0;
  Button3 := J.wButtons And Joy_Button3 <> 0;
  Button4 := J.wButtons And Joy_Button4 <> 0;

  { ... }

end;