TRegistry *enumReg = new TRegistry();
        TRegistry *pciReg = new TRegistry();
        String enumKey = "SYSTEM\\CurrentControlSet\\Services\\Modem\\Enum";
        String pciKey = "SYSTEM\\CurrentControlSet\\Enum";
        enumReg->RootKey = HKEY_LOCAL_MACHINE;
        pciReg->RootKey = HKEY_LOCAL_MACHINE;
        enumReg->Access = KEY_READ;
        pciReg->Access = KEY_READ;
        if(enumReg->OpenKey(enumKey, false))
            {
            int cnt = enumReg->ReadInteger("Count");     
            for (int a =  0 ; a < cnt; a++)
                {
                String key = pciKey + "\\" + enumReg->ReadString(IntToStr(a));
                if (pciReg->OpenKey(key, false))
                    {
                    String name = pciReg->ReadString("DeviceDesc");
                    pciReg->CloseKey();
                    pciReg->OpenKey(key + "\\" + "Device Parameters", false);
                    String port = pciReg->ReadString("PortName");
                    pciReg->CloseKey();
                    if (port != "" && name != "")
                        {
                        Form1->ComboBox3->Items->Add(port + ":" + name);
                        }
                    }
                }
            enumReg->CloseKey();
            }
        delete pciReg;
        delete enumReg;
        }