AddChild

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

// Строка состояния
stb=new TStatusBar(frm);

// TreeView
trv=new TTreeView(frm);
trv.BorderStyle=bsSingle;
trv.SetBounds(10,10,150,stb.Top-20);
trv.OnChange=trv_Change;

// Заполнение дерева
for (i=1;i<=3;i++) {
  trn=trv.Items.Add(null,"Узел "+i);
  for (j=1;j<=i;j++)
    trv.Items.AddChild(trn,String("Узел "+i+"-"+j));
}

// Правая панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Left=trv.Left+trv.Width+10;
pnl.Top =trv.Top;
pnl.Width =frm.ClientWidth-pnl.Left-trv.Left;
pnl.Height=trv.Height;
pnl.Color=trv.Color;

trv.SetFocus();
stb.SimpleText=" Узлы дерева созданы методами компонента TTreeNodes";
frm.ShowModal();

// Обработчик события OnChange
function trv_Change(trv,trn)
{
  stb.SimpleText=" Выбран "+(pnl.Caption=trn.Text);
}