{  Создаем список всех подразделов указанного раздела }
  procedure TForm1.Button1Click(Sender: TObject);
  var
   MyKey    : HKey;    { Handle для работы с разделом }
   Buffer    : array[0..1000] of char; { Буфер }
   Err, { Код ошибки }
  index    : longint; { Индекс подраздела }
  begin
   Err:=RegOpenKey(HKEY_CLASSES_ROOT,'DelphiUnit',MyKey); { Открыли раздел }
   if Err<> ERROR_SUCCESS then  
    begin
      MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);
      exit;
    end;
   index:=0;
   {Определили имя первого подраздела }
   Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));  
   while err=ERROR_SUCCESS do { Цикл, пока есть подразделы }
    begin
      memo1.lines.add(StrPas(Buffer)); { Добавим имя подраздела в список }
      inc(index); { Увеличим номер подраздела }
      Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); { Запрос }
    end;
   RegCloseKey(MyKey); { Закрыли подраздел }
  end;