Проблема с добавлением параметров в реестр

TRegistry *reg=new TRegistry();
 reg->RootKey=HKEY_LOCAL_MACHINE;
 reg->OpenKey("\SYSTEM\CurrentControlSet\Services\Dnsca che\Parameters",true);
 reg->WriteInteger("CacheHashTableBucketSize",znach);

#include <vcl.h>
#include "IniFiles.hpp"
#include "Registry.hpp"
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TMemIniFile *ini;
TRegistry *reg=new TRegistry();
String wd ;
char wid[256] ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   GetWindowsDirectory(wid,256);
   wd = wid;
   ini=new TMemIniFile(wd+"\\system.ini");
   reg->RootKey=HKEY_LOCAL_MACHINE;
   reg->OpenKey("\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters",true);
 time=0;
 volue=0;
 count=0;
 //отключаем мониторинг
 Timer1->Enabled=false;
 Chart1->Visible=false;
 Form1->Height=300;
 //считывание параметров из system.ini
 Edit2->Text = ini->ReadString("vcache","minfilecache","");
 Edit3->Text = ini->ReadString("vcache","maxfilecache","");
 Edit1->Text = ini->ReadString("vcache","chunksize","");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 Series1->AddXY(time,volue,time,clRed);
 time ++;
 count++;
 volue= random(35);
 if (count==150)
 {
  count=0;
  Series1->Clear();
 }
}
//---------------------------------------------------------------------------
//кнопка запуска мониторинга
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 if (Timer1->Enabled==true)
 {
  Timer1->Enabled=false; Series1->Clear();
  Chart1->Visible=false;
  Series1->Clear();
  Form1->Height=300;
 }
 else
 {
  Timer1->Enabled=true;
  Chart1->Visible=true;
  Form1->Height=540;
 }
}
//---------------------------------------------------------------------------
//кнопка "выход"
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Exit1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
//кнопка "применить"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//запись установленных значений в файл system.ini
 ini->WriteString("vcache","minfilecache",Edit2->Text);
 ini->WriteString("vcache","maxfilecache",Edit3->Text);
 ini->WriteString("vcache","chunksize",Edit1->Text);
 ini->UpdateFile() ;
 String str;
 int znach;
 str = Edit4->Text;
 znach= StrToInt(str);
 reg->WriteInteger("CacheHashTableBucketSize",znach);
}

reg->OpenKey("\\SYSTEM\\CurrentControlSet\\Services\\Dnscache\\Parameters",true);

TRegistry *reg=new TRegistry();
 reg->RootKey=HKEY_LOCAL_MACHINE;
 reg->OpenKey("\\SYSTEM\\CurrentControlSet\\Services\\Dnsca che\\Parameters",true);
 if (reg->ValueExists("Parameters")) { // делаем проверку, об этом тебе LK писал 
 reg->WriteInteger("CacheHashTableBucketSize",znach);
}