type
EControllerError = class(Exception)
property ErrorCode: Cardinal read;
end;

TFeature = (ftVoice, ftForceFeedback, ftWireless, ftPlugins, ftNoNavigation);
TFeatures = set of TFeature;

TBatteryType = (btDisconnected, btWired, btAlkaline, btNiMH, btUnknown);

TBatteryLevel = (blEmpty, blLow, blMedium, blFull, blUnknown);

TButton = (btUp, btDown, btLeft, btRight, btStart, btBack,
btLeftThumb, btRightThumb, btLeftShoulder, btRightShoulder,
btA, btB, btX, btY);
TButtons = set of TButton;

TSubType = (stUnknown, stGamepad, stWheel, stArcadeStick, stFlightStick,
stDancePad, stGuitar, stGuitarAlternate, stDrumKit, stGuitarBass, stArcadePad);

TController = class(TComponent)
constructor Create(AOwner: TComponent);
procedure Disable;
procedure Enabled;
procedure Vibrate(LeftSpeed, RightSpeed: Word);

property BatteryLevel: TBatteryLevel read;
property BatteryType: TBatteryType read;
property Buttons: TButtons read;
property Features: TFeatures read;
property HeadsetBatteryLevel: TBatteryLevel read;
property HeadsetBatteryType: TBatteryType read;
property LeftThumbstickDeadZone: SmallInt read;
property LeftThumbstickX: SmallInt read;
property LeftThumbstickY: SmallInt read;
property LeftTrigger: Byte read;
property PacketNumber: Cardinal read;
property RightThumbstickDeadZone: SmallInt read;
property RightThumbstickX: SmallInt read;
property RightThumbstickY: SmallInt read;
property RightTrigger: Byte read;
property SubType: TSubType read;
property TriggerThreshold: Byte read;
published
property аbout: string read;
property Device: Integer read write;
end;