[Awful]

Вопрос следующий
с помощью функции опрашиваю переменную в реестре

Код:

function valueexist(Hkey: hkey; path, key: string): bool;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := Hkey;
    Reg.OpenKey(Path, False);
    valueexist := Reg.ValueExists(key);
  except
    valueexist := false;
  end;
  Reg.Free;
end;

С такими параметрами работает возвращет тру если есть и фолс если не

Код:

ValueExist(HKEY_CURRENT_USER,'Environment','PortNumber')

А с такими всегда фолс (во всей ветке HKEY_LOCAL_MACHINE)

Код:

ValueExist(HKEY_LOCAL_MACHINE,'SYSTEMControlSet001ServicesSharedAccessParametersFirewallPolicyStandardProfile','EnableFirewall')

Подскажите что делать

(делаю интерфес управления встроенным фаерволом если есть идеи как сделать не через реестр буду рад совету )