LoadSetupApi;
 LoadConfigManagerApi;
 Memo1.Clear;

 PnPHandle:=SetupDiGetClassDevs(@USB_CLASS_GUID, nil, 0,DIGCF_PRESENT);
 if Cardinal(PnPHandle) = INVALID_HANDLE_VALUE then  Exit;

 Devn := 0;
 repeat
  DevData.cbSize := SizeOf(DevData);
  RES := SetupDiEnumDeviceInfo(PnPHandle, Devn, DevData);
  if (RES) and (_DN<>DN_ROOT_ENUMERATED) then
   begin
     St:=GetDeviceName(PnPHandle, DevData);

     if St='AVR309:USB to UART protocol converter' then begin //здесь из списка устройств по имени нахожу нужное мне устройство

       DeviceInterfaceDetailData:=nil;
       RequiredSize:=nil;
       new(RequiredSize);

//   А вот здесь пытаюсь получить путь устройства

        if(SetupDiGetInterfaceDeviceDetail(PnPHandle,        
                             @DevData,
                                               nil,
                                 0,
                                    RequiredSize,
                                          nil))then begin

         new(DeviceInterfaceDetailData);
         DeviceInterfaceDetailData^.cbSize:=SizeOf(DeviceInterfaceDetailData^);

         SetupDiGetInterfaceDeviceDetail(PnPHandle,
                             @DevData,
                             DeviceInterfaceDetailData,
                                 RequiredSize^,
                                    nil,
                                          nil);
         Memo1.Lines.Add('OK');
// В мемо выводит всегда длину , равную 1          

Memo1.Lines.Add(IntToStr(Length(DeviceInterfaceDetailData^.DevicePath)));
        end;
     end;
    Inc(Devn);
   end;
 until not RES;
 SetupDiDestroyDeviceInfoList(PnPHandle);
 UnloadSetupApi;
 UnloadConfigManagerApi;

procedure GetDeviceInfo;
var
 h_DevInfo: HDEVINFO;
 DeviceNumber: DWORD;
 DevData: TSPDevInfoData;
 DevInfoData: TSPDeviceInterfaceData;
 DevInfoDetail: PSPDeviceInterfaceDetailData;
 RES:BOOL;
 requiredLength: PDWORD;
 predictedLength: DWORD;
begin
 h_DevInfo := SetupDiGetClassDevs(@GUID_CLASS_USB_DEVICE, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
 if h_DevInfo = INVALID_HANDLE_VALUE then  Exit;
 DeviceNumber := 0;
 repeat
  DevData.cbSize := SizeOf(TSPDevInfoData);
  DevInfoData.cbSize := SizeOf(TSPDeviceInterfaceData);
  RES := SetupDiEnumDeviceInterfaces(h_DevInfo, nil, GUID_CLASS_USB_DEVICE, DeviceNumber, DevInfoData);
  if (RES) then
   begin

   SetupDiGetInterfaceDeviceDetail(h_DevInfo,
                                   @DevInfoData,
                                   nil,
                                   0,
                                   requiredlength,
                                   nil);
    predictedLength := requiredLength^;
    GetMem(DevInfoDetail, predictedLength);
    DevInfoDetail^.cbSize := Sizeof(TSPDeviceInterfaceDetailData);
    if SetupDiGetInterfaceDeviceDetail(h_DevInfo,
                                       @DevInfoData,
                                       DevInfoDetail,
                                       predictedLength,
                                       requiredLength,
                                       @DevData)
    then
     begin
       DevPath:=PChar(@DevInfoDetail.devicepath);
       Memo1.Lines.Add(DevPath);
     end;
    FreeMem(DevInfoDetail);
    Inc(DeviceNumber);
   end;
 until not RES;
 SetupDiDestroyDeviceInfoList(h_DevInfo);
end;

[Error] Unit1.pas(31): Undeclared identifier: 'ULONG_PTR'

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, SetupAPI, Cfg, CfgMgr32;

type

 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure GetDeviceInfo;
const
 USB_CLASS_GUID:TGUID = '{36FC9E60-C465-11CF-8056-444553540000}';
 USB_DEVICE_GUID:TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
var
h_DevInfo: HDEVINFO;
DeviceNumber: DWORD;
DevData: TSPDevInfoData;
DevInfoData: TSPDeviceInterfaceData;
DevInfoDetail: PSPDeviceInterfaceDetailData;
RES:BOOL;
requiredLength: PDWORD;
predictedLength: DWORD;
devpath: string;
begin
form1.Memo1.Clear;
h_DevInfo := SetupDiGetClassDevs(@USB_CLASS_GUID, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
if cardinal(h_DevInfo) = INVALID_HANDLE_VALUE then  Exit;
DeviceNumber := 0;
repeat
 DevData.cbSize := SizeOf(TSPDevInfoData);
 DevInfoData.cbSize := SizeOf(TSPDeviceInterfaceData);
 RES := SetupDiEnumDeviceInterfaces(h_DevInfo, nil, USB_CLASS_GUID, DeviceNumber, DevInfoData);
 if (RES) then
  begin

  SetupDiGetInterfaceDeviceDetail(h_DevInfo,
                                  @DevInfoData,
                                  nil,
                                  0,
                                  requiredlength,
                                  nil);
   predictedLength := requiredLength^;
   GetMem(DevInfoDetail, predictedLength);
   DevInfoDetail^.cbSize := Sizeof(TSPDeviceInterfaceDetailData);
   if SetupDiGetInterfaceDeviceDetail(h_DevInfo,
                                      @DevInfoData,
                                      DevInfoDetail,
                                      predictedLength,
                                      requiredLength,
                                      @DevData)
   then
    begin
      DevPath:=PChar(@DevInfoDetail.devicepath);
      form1.Memo1.Lines.Add('ok');
      form1.Memo1.Lines.Add(DevPath);
    end;
   FreeMem(DevInfoDetail);
   Inc(DeviceNumber);
  end;
until not RES;
SetupDiDestroyDeviceInfoList(h_DevInfo);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetDeviceInfo;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  LoadSetupApi;
 LoadConfigManagerApi;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  UnloadSetupApi;
 UnloadConfigManagerApi;
end;

end.

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

const
GUID_CLASS_USB_DEVICE:TGUID='{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

type

 ULONG_PTR = ^ ULONG;
 HDEVINFO = THandle;

 PSPDevInfoData = ^TSPDevInfoData;
 SP_DEVINFO_DATA = packed record
   cbSize: DWORD;
   ClassGuid: TGUID;
   DevInst: DWORD; // DEVINST handle
   Reserved: ULONG_PTR;
 end;
 TSPDevInfoData = SP_DEVINFO_DATA;

 PSPDeviceInterfaceData = ^TSPDeviceInterfaceData;
 SP_DEVICE_INTERFACE_DATA = packed record
   cbSize: DWORD;
   InterfaceClassGuid: TGUID;
   Flags: DWORD;
   Reserved: ULONG_PTR;
 end;
 TSPDeviceInterfaceData = SP_DEVICE_INTERFACE_DATA;

 PSPDeviceInterfaceDetailData = ^TSPDeviceInterfaceDetailData;
 SP_DEVICE_INTERFACE_DETAIL_DATA = packed record
   cbSize: DWORD;
   DevicePath: array [0..0] of Char;
 end;
 TSPDeviceInterfaceDetailData = SP_DEVICE_INTERFACE_DETAIL_DATA;

 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
 private
 public
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

function SetupDiGetClassDevs(ClassGuid: PGUID;
                            const Enumerator: PAnsiChar;
                            hwndParent: HWND;
                            Flags: DWORD): HDEVINFO; stdcall; external 'SetupApi.dll' name 'SetupDiGetClassDevsA';
function SetupDiEnumDeviceInfo(DeviceInfoSet: HDEVINFO;
                              MemberIndex: DWORD;
                              var DeviceInfoData: TSPDevInfoData): BOOL; stdcall; external 'SetupApi.dll';                            
function SetupDiEnumDeviceInterfaces(DeviceInfoSet: HDEVINFO;
                                    DeviceInfoData: PSPDevInfoData;
                                    const InterfaceClassGuid: TGUID;
                                    MemberIndex: DWORD;
                                    var DeviceInterfaceData: TSPDeviceInterfaceData): BOOL; stdcall; external 'SetupApi.dll';
function SetupDiGetInterfaceDeviceDetail(DeviceInfoSet: HDEVINFO;
                                        DeviceInterfaceData: PSPDeviceInterfaceData;
                                        DeviceInterfaceDetailData: PSPDeviceInterfaceDetailData;
                                        DeviceInterfaceDetailDataSize: DWORD;
                                        RequiredSize: PDWORD;
                                        Device: PSPDevInfoData): BOOL; stdcall; external 'SetupApi.dll' name 'SetupDiGetDeviceInterfaceDetailA';
function SetupDiDestroyDeviceInfoList(DeviceInfoSet: HDEVINFO): BOOL; stdcall; external 'SetupApi.dll';

процедуры

end.

result:=DeviceInterfaceDetailData.DevicePath;

result:=pchar(@DeviceInterfaceDetailData.DevicePath);

var LastError: Integer;
...
SetLastError(0);
...
LastError := GetLastError;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, LastError, LANG_SYSTEM_DEFAULT, chBufErr, 80, nil);
MessageDlg('Error №'+IntToStr(LastError)+' :'+chBufErr, mtError, [mbOK], 0);

...
DevPath:=PChar(@DevInfoDetail.devicepath);