Registry Key löschen

[Tommy1988]

Folgendes habe ich geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
registry : TRegistry;
begin
registry := TRegistry.Create;
 try
   registry.RootKey := HKEY_CURRENT_USER;
    if registry.OpenKey('\Software\Microsoft\Windows\'
      +'CurrentVersion\Explorer\TrayNotify', True) then
      begin
        registry.DeleteKey('IconStreams');
        registry.DeleteKey('PastIcon-Streams');
        registry.CloseKey;
      end else
        begin
         ShowMessage('Fehler, Schlüssel existieren nicht');
        end;
   finally
     registry.Free;
   end;
end;

Normalerweise sollte dadurch die Objektliste (die ganzen Tray's) gelöscht werden..
Also die History davon, nicht direkt die neben der Uhr.

Wieso klappt das mit dem löschen nicht?