Registry-Key löschen

[St.Pauli]

Code:

procedure TForm1.Button11Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  try
    if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\', true) then
    begin
      Reg.DeleteKey('url1');
    end;
  finally
    Reg.Free;
  end;
end;

So, oder?

Klappt aber immer noch nicht!

Nur so, ich bin und habe volle Admin rechte aufm PC, daran kanns net liegen (Kein plan ob es daran liegen könnte)