Registry Key löschen

[DarkProtector]

Hallo,

ich bin neu hier und wollte eben mal einen Registry Key löschen:

Delphi-Quellcode:

procedure TForm1.UnlockClick(Sender: TObject);

var reg:TRegistry;

begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
   reg.RootKey:=HKEY_CURRENT_USER;
   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', false);
   reg.DeleteKey('DisableRegistryTools');
   reg.CloseKey;
finally
   reg.Free;
   memo1.Lines.Text:=memo1.Lines.Text+'...Done'#13;
end;

Das habe ich bis jetzt, passieren tut nichts. Wäre nett wenn ihr mir helfen könnt .