Работа с джойстиком через USB

function TForm1.hidEnumerate(HidDev: TJvHidDevice;
  const Idx: Integer): Boolean;
var n: Integer;
begin
 n:= ListBox1.Items.Add(DeviceName(HidDev));
 Hid.CheckOutByIndex(Dev, Idx);
 Dev.NumInputBuffers      := 128;
 Dev.NumOverlappedBuffers := 128;
 ListBox1.Items.Objects[n]:= Dev;
 Result:= True
end;

procedure TForm1.hidDeviceData(HidDev: TJvHidDevice; ReportID: Byte;
  const Data: Pointer; Size: Word);
var i: integer;
    s: string;
    k: longword;
begin
 for i:= 0 to Size - 1 do
  s:= s + Format('%.2x ', [Cardinal(PChar(Data))]);
 caption:= s;
 // тут преобразуем если в двух-байтном
 // например смещением
end;

function DeviceName(HidDev: TJvHidDevice): string;
begin
 if HidDev.ProductName <> '' then Result:= HidDev.ProductName
  else Result:= Format('Device VID=%.4x PID=%.4x',
                       [HidDev.Attributes.VendorID,
                       HidDev.Attributes.ProductID]);
 if HidDev.SerialNumber <> '' then // проверка наличия Serial Num
  Result:= Result + Format(' (Serial=%s)', [HidDev.SerialNumber])
end;