procedure THiAsmClass.InitDeviceList;
const
  PINVALID_HANDLE_VALUE = Pointer(INVALID_HANDLE_VALUE);
var
  dwFlags: DWORD;
  SH: integer;
begin
//  hDev := SetupDiCreateDeviceInfoList(nil, 0);
  // Устанавливаем необходимые флаги перед вызовом функции
  dwFlags := DIGCF_ALLCLASSES;// or DIGCF_DEVICEINTERFACE; Вот тут

const
  DIGCF_DEFAULT         = $00000001; // only valid with DIGCF_DEVICEINTERFACE
  DIGCF_PRESENT         = $00000002;
  DIGCF_ALLCLASSES      = $00000004;
  DIGCF_PROFILE         = $00000008;
  DIGCF_DEVICEINTERFACE = $00000010;