Как получить содержимое реестра?

void __fastcall TForm1::Button4Click(TObject *Sender)
{
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
 
   reg->RootKey=HKEY_LOCAL_MACHINE;
   reg->OpenKey("",1);  //Открываем ключ
   TStringList *l=new TStringList;
   reg->GetKeyNames(l);        // список подключей
   TStringList *s=new TStringList;
   reg->GetValueNames(s);      // список параметров
   ShowMessage(s->Text);
//   for(int znach=0; znach<s->Count; znach++)
//   {
//     String a=s->Strings[znach];
//     if(a=="Path" || a=="Directory")
//     {
//         ShowMessage("Parameter detected");
//         // где-то тут функцию для проверки на существование в файловой системе
//     }
//     else  ShowMessage("Проверять нечего. Следующий параметр");
//   }
  // ListBox1->Items->AddStrings(l);
   if(reg->HasSubKeys()==true)
   {
   for(int ik=0;ik<l->Count;ik++)   // каждый подключ
   {
            TRegistry *reg1 = new TRegistry(KEY_ALL_ACCESS);
            TStringList *lol=new TStringList;
            reg1->RootKey=reg->RootKey;
            reg1->OpenKey(UnicodeString(l->Strings[ik]), 1);
            reg1->GetKeyNames(lol);
            if(reg->HasSubKeys()==true)           // если есть подключи
            {
                    ListBox1->Items->Add("_______________"+UnicodeString(l->Strings[ik])+"_____________________");
                    if(lol->Count>0)
                    {
                        ListBox1->Items->AddStrings(lol);        // добавляем все подключи
                        for(int l1=0; l1<lol->Count; l1++)
                        {   reg1->OpenKey("\\"+UnicodeString(lol->Strings[l1]),1);
                            reg1->OpenKey("",1);         // открываем текущий ключ
                            TStringList *l1=new TStringList;
                            if(l1>0)
                            {
                                reg1->GetValueNames(l1);   // получаем список параметров
                                    for(int kr=0;kr<l1->Count;kr++)        // перебирается список параметров
                                    {
                                         ListBox1->Items->Add("_______________"+UnicodeString(l1->Strings[kr])+"_____________________");
                                       //    ListBox1->Items->AddStrings(l1); //добавляются все параметры подключа
                                    }
                                    //  ShowMessage(l1->Count);
                                    for(int k=0; k<s->Count; k++)
                                    {
                                       UnicodeString a=reg->ReadString("Path");
                                       UnicodeString b=reg->ReadString("Directory");
                                    }
                                }
                        }   reg1->CloseKey();
                    }
            }
 
   }
   delete reg;
   }