Windows 7 Product Key

[DArc]

Tut mir leid, bin grad etwas neben mir, vorallem weil es nicht so funktionieren mag wie ich es wünsche

Delphi-Quellcode:

function GetWindowsRegistryValuesA: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ or $0100);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if (Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\', false)) then
    begin
      try
      if Reg.KeyExists('DigitalProductId') then
                Result := Result + 'existiert';

        if Reg.ValueExists('DigitalProductId64') then
                Result := Result + 'existiert';
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Kann jemand versuchen das mal bei sich auszutesten?
Oder hat jemand schon den Fehler gefunden?

Mfg DArc