Registry Eintrag entfernen?

[AlexII]

Ich hab das so gemacht:

Delphi-Quellcode:

// TransparenzWert aus der Registry entfernen...
procedure DelWertFromReg(Name: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
   begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\ProgrammRose\Transparenz', True);
    if ValueExists(Name) then
     DeleteValue(Name);
     CloseKey;
   end;
  Finally
   Free;
 end;
end;

DelWertFromReg('TransparenzWert'); Und was sagt ihr? Es funktioniert...