[Delphi] Rejestry - ReadSections klucza HKEY_CLASSES_ROOT

Witam. Chciałem sobie napisać program odczytujący ustawione w Rejestrach WIndowsa skojarzenia dla poszczególnych
rozszerzeń plików i możliwością ich eksportu i tak dalej, ale na początku już natrafiłem na poważny problem. Mianowicie:
jak odczytać funkcją ReadSections zawartość klucza HKEY_CLASSES_ROOT? Czy w ogóle się da?

EDIT: problem został rozwiązany po dokładniej lekturze: Rozdział 6

var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.OpenKey('', False);
  Reg.GetKeyNames(ListBox1.Items);
  Reg.Free;
  ShowMessage('Zrobione');
end;