CreateKey

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TRegistry CreateKey";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Создать"';

lbe=new TLabeledEdit(frm);
lbe.EditLabel.Caption="Ключ HKEY_CURRENT_USER: ";
lbe.BorderStyle=bsSingle;
lbe.Left=10;
lbe.Top =10+lbe.EditLabel.Height;
lbe.Width=frm.ClientWidth-lbe.Left*2;
lbe.Text="\\Software\\JS+\\Test\\CreateKey";

// Кнопка
btn=new TButton(frm);
btn.Caption="Создать";
btn.Left=lbe.Left+lbe.Width-btn.Width;
btn.Top =lbe.Top+lbe.Height+10;
btn.Hint="Создать ключ реестра";
btn.ShowHint=true;
btn.OnClick=btn_Click;

frm.ClientHeight=btn.Top+btn.Height+10+stb.Height;

// Реестр
reg=new TRegistry();

lbe.SetFocus();
frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  lbe.SetFocus();
  reg.RootKey="HKEY_CURRENT_USER";
  switch (reg.CreateKey(lbe.Text)) {
    case true: alert("Ключ успешно создан"); break;
      default: alert("Ошибка при создании ключа");
  }
  reg.CloseKey();
}