我要读取目前PC上有哪些 COM Prot, 想从读取Registry 信息得知. 
 
我的程序:
void __fastcall TMainForm::Button2Click(TObject *Sender)
{
     int i;

     TRegistry* Reg = new TRegistry();
     TStringList* slKeys = new TStringList();

     Reg->RootKey = HKEY_LOCAL_MACHINE;
     Reg->OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM",true);
     slKeys->Clear();
     Reg->GetKeyNames(slKeys);
     for(i=0;i<2;i++)
         ComboBox1->Items->Add(slKeys->Strings[i]);   // <- 执行到此程序会出错

     Reg->CloseKey();
     delete slKeys;
}