DWORD in Registry schreiben

[lukdelphias]

Hallo liebesForum,

ich habe voreinen Wert der Registry zu ändern. Nach stundenlanger Probiererei gebe ich nun auf.
Ich weiß nicht mehr weiter. Ich bekomme es einfach nicht hin das der Registryeintrag geändert wird. Debuggen lässt sich das Programm ohne Probleme, spuckt keine Fehlermeldungen aus usw.
Hier der Code dazu:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true) then
    try
      reg.WriteInteger('DisableTaskMgr',1);
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

end.

Hat jemand eine Idee warum es nicht schreibt?

MfG