Запись своих значений (ключей) в реестр

 TRegistry *reg=new TRegistry(); //cоздали обьект класса TRegistry
 reg->RootKey=HKEY_CURRENT_USER; //выбор раздела где поработаем
 reg->OpenKey("Control Panel\\Cursors",true); //открываем этот раздел
 
 reg->WriteString("My kluch","CYBERFORUM"); // создали ключ типа String со значением "CYBERFORUM"
 reg->CloseKey();

 TRegistry *reg=new TRegistry(); //Создали обьект класса TRegistry
 reg->RootKey=HKEY_CURRENT_USER;
 reg->OpenKey("Control Panel\\Cursors",true); //открываем этот раздел
 
  if(reg->ValueExists("My kluch"))  //Если параметр в заданном ключе существует
MessageBox(0,"Ключ \"My kluch\" в разделе \"Cursors\" существует","Проверка",MB_OK); //найден параметр My kluch
  else  //в противном случае
MessageBox(0,"Ключ \"My kluch\" в разделе \"Cursors\" не существует","Проверка",MB_OK); //нету этого параметра
 
reg->CloseKey();
   delete reg;

reg->OpenKeyReadOnly("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment"); //Теперь открываем ключ для чтения (можно было бы и использовать OpenKey(), но эта функция позволяет только читать параметры )
    String l=reg->ReadString("PROCESSOR_ARCHITECTURE"); //имя считываемого параметра
    if (l=="AMD64") (l="x64");
    Label25->Caption=l;    //выводим значение в label