Delete Registry Key

uses Registry

//

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
  Val : TStringList;
  I : Integer;

begin
  Reg:=TRegistry.Create;
  try
    Val := TStringList.Create;
    try
      Reg.RootKey:=HKey_Local_Machine; // Root

      if not Reg.OpenKey(Edit1.Text,False) then
        ShowMessage('Fehler beim Öffnen des Schlüssels')
      else
      begin
        Reg.GetValueNames(Val);
        for I:=0 to Val.Count-1 do
        begin
          ShowMessage(Edit1.Text + Chr(13) +
                      'hat einen Eintrag namens '+Val.Strings[i]+Chr(13)+
                      'mit dem Wert '+Reg.ReadString(Val.Strings[i]));
        end;

        if MessageDlg('Soll der Schlüssel mit seinen Werten gelöscht werden?'
                     ,Mtinformation,[mbYes,mbNo],0)=mryes then
           Reg.DeleteKey(Edit1.Text);
      end;
    finally
      Val.Free;
    end;
  finally
    Reg.Free;
  end;
end;