Brauche hilfe bei Registry*

[0x33]

Delphi-Quellcode:

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; // Abschnitt in Registrierung
      if not Reg.OpenKey(Edit1.Text,False) then                             //-key wird geöffnet in meinem fall \SOFTWARE\Microsoft\Windows\CurrentVersion\Run
        ShowMessage('Error opening key')
      else
      begin
        Reg.GetValueNames(Val);
        for I:=0 to Val.Count-1 do

        begin
          ShowMessage(Edit1.Text + Chr(13) +
                      'has an Entry Called '+Val.Strings[I]+Chr(13)+
                      'With a Value of '+Reg.ReadString(Val.Strings[I]));
        end;
        if MessageDlg('Ok to delete the key and lose all these values?'
                     ,Mtinformation,[mbYes,mbNo],0)=mryes then
           Reg.DeleteKey(Edit1.Text);
      end;
    finally
      Val.Free;

    end;
  finally
    Reg.Free;
  end;
end;

ok, also öhm mit der prozedur wird ja der key geöffnet und alle einträge per schleife ausgegeben aber am schluss wird doch der komplette run schlüssel gelöscht, ich will ja aber nur einen schlüssel im run löschen wie kann ich das machen?