Наличие параметра в ключе реестра, всегда FALSE

 TRegistry *Reg = new TRegistry;
  Reg->RootKey = HKEY_LOCAL_MACHINE;
  Reg->OpenKey("SOFTWARE\\Asw",false);
if (Reg->ValueExists("dpar"))
   {
 
   ShowMessage ("Есть");
   }
   else
   {
    ShowMessage ("Нету");
   }

    TRegistry *Reg = new TRegistry;
    Reg->RootKey = HKEY_LOCAL_MACHINE;
    Reg->OpenKey("SOFTWARE\\Asw",false);
 
    LPVOID lpMsgBuf;
    FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
    NULL,GetLastError(),MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
    (LPTSTR) &lpMsgBuf,0, NULL );
    MessageBox(NULL, (LPCTSTR)lpMsgBuf, TEXT("Error"), MB_OK);
    LocalFree( lpMsgBuf );
 
if (Reg->ValueExists("dpar"))
    {
 
    ShowMessage ("Есть");
    }
    else
    {
     ShowMessage ("Нету");
    }

__fastcall TRegistry(void)/* overload */;
__fastcall TRegistry(unsigned AAccess)/* overload */;

 TRegistry *Reg = new TRegistry(0x3F);

 TRegistry *Reg = new TRegistry;
    Reg->RootKey = HKEY_CURRENT_USER;
    Reg->OpenKey("SOFTWARE",true);
    Reg->OpenKey("Asw",true);
    Reg->WriteString("dpar","13");
 
    delete Reg;

TRegistry *Reg = new TRegistry(KEY_WOW64_64KEY);

ShowMessage(Reg->CurrentPath);

bool x;
switch (TOSVersion::Architecture) {
case TOSVersion::arIntelX86:
  x = false;
  break;
case TOSVersion::arIntelX64:
  x = true;
  break;
}
 
TRegistry *Reg = new TRegistry();
Reg->RootKey = HKEY_LOCAL_MACHINE;
if (x) {Reg->OpenKey("SOFTWARE\\Wow6432Node\\ASW",false);} // если 64 то сюда
else {Reg->OpenKey("SOFTWARE\\ASW",false);}   // если 32 то сюда
ShowMessage(Reg->CurrentPath);
if (Reg->ValueExists("id_par"))
   {
   id = StrToInt(Reg->ReadString("id_par"));
   ShowMessage (id);
   }
else
   {
    ShowMessage ("Нету");
   }