Как получить номер КОМ-порта зная VID и PID

uses SetupAPI;
function get_num_comname(node, sub: string): string;
 function GetDevName(PnPHandle: HDEVINFOS; const DevData: TSPDevInfoDataS): string;
 var
  BytesReturned: DWORD;
  RegDataType: DWORD;
  Buffer: array [0..256] of CHAR;
 begin
  BytesReturned := 0;
  RegDataType := 0;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryPropertyS(PnPHandle,
                                    DevData,
                                    $C,
                                    RegDataType,
                                    PByte(@Buffer[0]),
                                    SizeOf(Buffer),
                                    BytesReturned);
  Result := Buffer;
  if Result'' then exit;
  BytesReturned := 0;
  RegDataType := 0;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryPropertyS(PnPHandle,
                                    DevData,
                                    $0,
                                    RegDataType,
                                    PByte(@Buffer[0]),
                                    SizeOf(Buffer),
                                    BytesReturned);
  Result:=Buffer;
 end;
var
  _i:DWORD;
  Res: DWORD;
  GUID: PGUID;
  Buffer: array [0..1023] of CHAR;
  BufSize: DWORD;
  //
  PnPHandle: HDEVINFOS;
  DevData: TSPDevInfoDataS;
  RS: LongBool;
  Devn: Integer;
  _DN,_PN:ULONG;
  s: string;
begin
  result:= '';
  _i:=0;
  repeat
    GetMem(GUID, SizeOf(TGUID));
    Res := CM_Enumerate_ClassesS(_i, GUID^, 0);
    if Res  $25 then begin
      SetupDiGetClassDescriptionS(GUID^, @Buffer[0], Length(Buffer), BufSize);
      // проверяем узел
      if pos(node, Pchar(@Buffer[0]))>0 then begin
       PnPHandle := SetupDiGetClassDevsS(@GUID^, nil, 0, DIGCF_PRESENT);
       if PnPHandle = INVALID_HANDLE_VALUE then Exit;
       Devn := 0;
       repeat
        DevData.cbSize := SizeOf(DevData);
        RS := SetupDiEnumDeviceInfoS(PnPHandle, Devn, DevData);
        if (RS) and (_DN$1) then begin
         s:= GetDevName(PnPHandle, DevData);
         // проверяем субкласс
         if pos(sub, s)>0 then begin
          result:= copy(s, pos('COM', s), 4);
         end;
         Inc(Devn);
        end;
        if Devn=0 then break;
       until not RS;
       SetupDiDestroyDeviceInfoListS(PnPHandle)
      end;
     end;
     Inc(_i);
     FreeMem(GUID);
   until Res = $25
end;