Ну, если без описаний, то и попроще можно... TRegistry *regKey = new TRegistry();
regKey->RootKey = HKEY_LOCAL_MACHINE;
TStringList *lCOM = new TStringList();
if (regKey->OpenKeyReadOnly("\\HARDWARE\\DEVICEMAP\\SERIALCOMM"))
{
TStringList *l = new TStringList();
regKey->GetValueNames(l);
for (int i = 0; i < l->Count; i++)
lCOM->Add( regKey->ReadString(l->Strings[i]) );
}