with TRegistry.Create do
  begin
    try
      Rootkey := HKEY_CURRENT_USER; //Hauptschlüssel
      if OpenKey(Key, True) then //Unterschlüssel öffnen
      begin
      if DeleteKey('DerKey') then
       begin
       Showmessage('Alles gelöscht');
       CloseKey;
       end else
        begin
         Showmessage('Fehler beim Löschen');
         CloseKey;
        end;
      end;
      finally
          Free;
    end;
  end;