[Registry] Auslesen des Ordnerinhalts schlägt fehl

[flomei]

Hallo!
Ich versuche den Inhalt des Ornders "Fonts" aus der Registry auszulesen.
Allerdings schlägt das fehl.
Folgenden Code verwende ich:

Delphi-Quellcode:

procedure TfrmMain.StartProgram(Sender: TObject);
  var
    registry: TRegistry;
  begin
    registry := TRegistry.Create;
    registry.RootKey := HKEY_LOCAL_MACHINE;
    begin
      if
        registry.OpenKey('SOFTWARE/Microsoft/CurrentVersion/FONTS', false)
      then
        registry.GetValueNames(ListBoxListFonts.Items)
      else
        MessageDlg('Could not read fonts!', mtWarning, [mbOK], 0);
    end;
    registry.CloseKey;
  end;

Ich erhalte immer die Fehlermeldung aus dem else-Fall...
Ich habe das dumpfe Gefühl das ich nen dummen Fehler gemacht habe aber ich finde ihn nicht.

Wäre nett wenn ihr euch das mal anguckt. Danke!

MfG Florian