Чтение данных с реестра

void __fastcall TMainForm::GetReestr(String link,String param)
{
    // Функция для получения данных из реестра
    DWORD dwIndex = 0;
    LONG ret;
    DWORD cbName = MAX_PATH;
    TCHAR szSubKeyName[MAX_PATH];
    wchar_t szDisplayName[500];
    DWORD dwSize= MAX_PATH;
    DWORD dwType= MAX_PATH;
    HKEY hKey;
    HKEY hKey1;
    HKEY hItem;
    DWORD access;
 
    access = RegConnectRegistryW(pc_name, HKEY_LOCAL_MACHINE, &hKey1);
 
    if(access != ERROR_SUCCESS)
        {
            NewError("ERROR_SUCCESS");
            return;
        }
 
    long lResult = RegOpenKeyExW(hKey1, link.c_str(), 0, KEY_READ, &hKey);
    //if(RegOpenKeyExW(hKey1, link.c_str(), 0, KEY_READ , &hKey) != ERROR_SUCCESS)
       if(lResult != ERROR_SUCCESS)
        {
            if (lResult == ERROR_FILE_NOT_FOUND)
                {
                    NewError("Key not found");
                }
                else
                    {
                        NewError("Error opening key");
                    }
 
            return;
        }
 
    while ((ret = RegEnumKeyEx(hKey, dwIndex, szSubKeyName, &cbName, NULL, NULL, NULL, NULL)) != ERROR_NO_MORE_ITEMS)
        {
            if (ret != ERROR_SUCCESS)
                continue;
 
            if (RegOpenKeyEx(hKey, szSubKeyName, 0, KEY_READ, &hItem) != ERROR_SUCCESS)
                continue;
 
            dwSize = sizeof(szDisplayName);
 
            if (RegQueryValueExW(hItem, param.c_str(), NULL, &dwType, (LPBYTE)szDisplayName, &dwSize) == ERROR_SUCCESS)
                NewRezultat(param,String(szDisplayName)); // Вывожу результат поиска в TMemo
 
            RegCloseKey(hItem);
            dwIndex++;
            cbName = MAX_PATH;
        }
 
    RegCloseKey(hKey);
    RegCloseKey(hKey1);
}
//---------------------------------------------------------------------------