CreateSubKey(SubKeyName: String): IRegistryKey;
SubKeyName. Наименование подраздела, который необходимо создать.
Метод CreateSubKey осуществляет создание в реестре подраздела, наименование которого передается посредством входного параметра.
Если создаваемый подраздел уже существует, то метод возвращает доступ к содержащимся в нем объектам.
Добавьте ссылку на системную сборку Registry.
Sub UserProc;
Var
RegKey, SubKey: IRegistryKey;
Begin
RegKey := RegistryClass.CurrentUser;
SubKey := RegKey.CreateSubKey("Software\MyProject");
SubKey.CreateSubKey("Params");
SubKey.CreateSubKey("Fonts");
End Sub UserProc;
После выполнения примера в ветке реестра [HKEY_CURRENT_USER\Software] будет создан подраздел MyProject и в нём еще два подраздела - Params и Fonts.
См.также: