1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Reg := TRegistry.Create; //Create = Im Speicher ist Platz reserviert/ erzeugt Speicherplatz für die jeweilige Variable
     try
       Val := TStringList.Create; //Create = Im Speicher ist Platz reserviert/ erzeugt Speicherplatz für die jeweilige Variable
       try
         Reg.RootKey := HKEY_USERs; // Abschnitt in Registrierung
         if not Reg.OpenKey('Pfad des Schlüssels aus der Registry',False) then
            ShowMessage('Fehler beim Öffnen des Schlüssels')
         else begin
              if MessageDlg('Wollen Sie die Einträge wirklich löschen?',mtInformation,[mbYes, mbNo], 0) = mrYes
              then begin
                   Reg.GetValueNames(Val); // Speichert die Namen in die TStringList Val
                   Reg.DeleteKey('Pfad des Schlüssels aus der Registry');
                   entries.Checked := False; //Hacken werden nach dem löschen nicht mehr angezeigt
              end;
         end;//Reg.OpenKey
        finally
          Val.Free; // Setzt nach dem Löschen den Speicher wieder frei
        end;//Val.Free
     finally
       Reg.Free; // Setzt nach dem Löschen den Speicher wieder frei
     end;//Reg.Free                    

1:
2:

  ShowMessage(Reg.ReadString('Schlüsselname'));  // Gibt Value des  Schlüssels "Testschlüssel" wieder
 Reg.WriteString('Testschlüssel', 'neuer wert');  // trägt "neuer wert" als Value für den Schlüssel "Testschlüssel" ein und ich glaube falls der ned existiert wird er angelegt                    

1:

reg.WriteString('no Auto','yes');                    

1:
2:
3:
4:

  Reg.ReadBool(...);
  Reg.ReadCurrency(...);
  Reg.ReadInteger(...);
  ...                    

1:

Reg.DeleteValue(WertName);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

 Reg:=TRegistry.Create;
  try
    Val:=TStringList.Create;
    try
      Reg.RootKey:=HKey_USERS; // Abschnitt in Registrierung
      if not Reg.OpenKey('Angegebener Pfad des Schlüssels',True) then
        ShowMessage('Fehler beim Öffnen des Schlüssels')
      else
      begin
        Reg.GetValueNames(Val);

        for I:=0 to Val.Count-1 do
        begin
          ShowMessage(''Angegebener Pfad des Schlüssels' + 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.DeleteValue('Wert des Schlüssels');

      end;
    finally
      Val.Free;
    end;
  finally
    Reg.Free;
  end;                    

1:
2:
3:

        if MessageDlg('Soll der Schlüssel mit seinen Werten gelöscht werden?' 
                     ,Mtinformation,[mbYes,mbNo],0)=mryes then 
           Reg.DeleteValue(Val[i]); //Hier war der Fehler