Проблемы с функцией OpenKey класса TRegistry

[sergey_dmitrievich]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString S;
 TRegistry *Registry = new TRegistry;
 try
 {
    Registry->RootKey = HKEY_CLASSES_ROOT;

 if((Registry->KeyExists("Applications\\WinRAR.exe\\shell\\open\\command")))
 {
 ListBox1->Items->Add("Нашел");

     if(Registry->OpenKey("Applications\\WinRAR.exe\\shell\\open\\command",false))
     {
      ListBox1->Items->Add("Открыл");
     }

 }

 }
 __finally
 {
   delete Registry;
 }
}

Находит, но не открывает.
Если у ключа ветки реестра нет точки в названии, то отрабатывает нормально.
Как обойти эту проблему?
Почему он не видит ключи с точкой?