UAC관련 문제가 아닌가 합니다.
OpenKeyReadOnly를 이용해보세요.
다음은 참고용 소스입니다.

static bool __fastcall ReadBinary(TMemoryStream* pStream)
{
    //
    HKEY    hKey;
    DWORD    dwAccess = STANDARD_RIGHTS_READ | KEY_QUERY_VALUE | KEY_ENUMERATE_SUB_KEYS; // KEY_ALL_ACCESS

    LONG    nRet = ::RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SYSTEM\\CurrentControlSet\\services\\mssmbios\\Data", 0, dwAccess, &hKey);
    if(nRet != ERROR_SUCCESS)
    {
        Application->MessageBox(SysErrorMessage(nRet).c_str(), L"RegCreateKeyEx - Error", MB_OK | MB_ICONSTOP);
        return false;
    }

    DWORD    dwType, dwDataSize;
    nRet = ::RegQueryValueEx(hKey, "BiosData", NULL, &dwType, NULL, &dwDataSize);
    if(nRet != ERROR_SUCCESS)
    {
        Application->MessageBox(SysErrorMessage(nRet).c_str(), L"RegQueryValueEx(GetDataSize) - Error", MB_OK | MB_ICONSTOP);
        ::RegCloseKey(hKey);
        return false;
    }

    if(dwType == REG_BINARY && 0 < dwDataSize)
    {
        pStream->Size = dwDataSize;

        nRet = ::RegQueryValueEx(hKey, "BiosData", NULL, &dwType, (LPBYTE)pStream->Memory, &dwDataSize);
        if(nRet != ERROR_SUCCESS)
        {
            Application->MessageBox(SysErrorMessage(nRet).c_str(), L"RegQueryValueEx(GetData) - Error", MB_OK | MB_ICONSTOP);
            ::RegCloseKey(hKey);
            return false;
        }
        ::RegCloseKey(hKey);
        return true;
    }
    else
    {
        ::RegCloseKey(hKey);
        return false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    TMemoryStream*    pStream = new TMemoryStream();
    try
    {
        if(ReadBinary(pStream) == true)
        {
            Memo1->Lines->BeginUpdate();
            try
            {
                Memo1->Lines->Clear();

                LPBYTE    p = (LPBYTE) pStream->Memory;
                int        nLine = pStream->Size / 10;
                int        nCol = pStream->Size % 10;

                int        n = 0;
                for(int i = 0 ; i < nLine ; i++, n+=10)
                {
                    Memo1->Lines->Add(UnicodeString().sprintf(L"%.02X %.02X %.02X %.02X %.02X %.02X %.02X %.02X %.02X %.02X",
                        p[n+0], p[n+1], p[n+2], p[n+3], p[n+4], p[n+5], p[n+6], p[n+7], p[n+8], p[n+9]));
                }

                if(nCol != 0)
                {
                    UnicodeString    strLine = L"";
                    for(int i = 0 ; i < nCol ; i++, n++)
                    {
                        strLine += IntToHex(p[n], 2) + L" ";
                    }
                    Memo1->Lines->Add(strLine);
                }
            }
            __finally
            {
                Memo1->Lines->EndUpdate();
            }
        }
        else
            Memo1->Lines->Clear();
    }
    __finally
    {
        pStream->Free();
    }
}
//---------------------------------------------------------------------------