Registry Wert automatisch anlegen

[lukdelphias]

Hallo liebes Forum,

ich hab nochmal eine Frage zum schreiben der Registry,

ich habe mir hier eine Funktion zusammengeschrieben die ohne Probleme die Regitry verändern kann.

Delphi-Quellcode:

procedure TForm1.RegistryWrite(path: string; objekt: String; value: Integer);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;  possible
    if reg.OpenKey(path ,true) then
    try
      reg.WriteInteger(objekt ,value);
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

Jetzt möchte ich den Taskmanager für eine bestimmt Zeit in der Registry sperren. Bei PCs wo der Wert DisableTaskmgr schon angelegt ist, funktioniert das mit dem Aufruf RegistryWrite('Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskMgr', 1); wunderbar.
Bei PCs bei den der Wert DisableTaskmgr noch nicht angeleget ist funktioniert das ganze nicht.

Wie bekomme ich es hin, dass er den Wert automatisch anlegt, wenn er noch nicht vorhanden ist?
In der procedure selbst sind die Boolean ja schon auf true gesetzt und etwas anderes finde ich bei Google leider nicht.
Vielleicht hat jemand von euch eine Idee?

Gruß