Получение COM портов

void reglst()
{
    TRegistry * Reg;
    TStringList * List;
    Reg=new TRegistry;
    List=new TStringList;
    int i;
    AnsiString w;
    Reg->RootKey=HKEY_LOCAL_MACHINE;
    Reg->OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM", false);
    Reg->GetValueNames(List);
    for (i=0;i<List->Count;i++) // тут и ниже можно не смотреть
        {
        w=Reg->ReadString(List->Strings[i]).SetLength(3);
        if (w.SetLength(3)=="COM")
        Form1->ComboBox1->Items->Add(Reg->ReadString(List->Strings[i]));
        }
        //List->Free(); - выбивает ошибку после компиляции
        Reg->CloseKey();
        //Reg->Free(); - выбивает ошибку после компиляции
        Form1->ComboBox1->ItemIndex=0;
    delete Reg;
    delete List;
}

     OSVERSIONINFO osvi;
     osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
     if(GetVersionEx(&osvi) && (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT))
    {
       ComboBox1->Items->Clear();
       TCHAR szDevices[0xFFFF];    /* include <tchar.h>  */
       if(QueryDosDevice(NULL, szDevices, 0xFFFF)) {
         for(int i=0;szDevices[i] != _T('\0');i++)  {
           TCHAR* pszCurrentDevice = &szDevices[i];
           String G = pszCurrentDevice;
           if(G.Length()>3 && G.SubString(1,3)=="COM") ComboBox1->Items->Add(G);
           while(szDevices[i] != _T('\0')) i++; }  }
    }