Kann keinen neuen Registryeintrag erstellen (access violation)

[nahpets]

Delphi-Quellcode:

  //zweiter versuch
    //nur zum testen ob string und integer denn funktionieren würden
    with TRegistry.Create do
    begin
    Rootkey:=HKEY_CURRENT_USER; //Hauptschlüssel
      try
        Registry.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true);//bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
        Registry.WriteString('Schlüssel', 'Wert');
        Registry.WriteInteger('Zahl',123);
      finally
        Registry.free;
      end;
    end;
end;

Registry wird nie ein Wert zugewiesen, damit fehlt irgendwie das Registry := TRegisty.Create und es kann auch nicht darauf zugegriffen werden.

Wenn schon was mit with TRegistry.Create, dann eventuell so?

Delphi-Quellcode:

  //zweiter versuch
    //nur zum testen ob string und integer denn funktionieren würden
    with TRegistry.Create do
    begin
    Rootkey:=HKEY_CURRENT_USER; //Hauptschlüssel
      try
        OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true);//bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
        WriteString('Schlüssel', 'Wert');
        WriteInteger('Zahl',123);
      finally
        free;
      end;
    end;
end;