OnAddition

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие компонента TTreeView OnAddition";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Справа список добавленных узлов";

// TreeView
trv=new TTreeView(frm);
trv.BorderStyle=bsSingle;
trv.Left=trv.Top=10;
trv.Width=150;
trv.Height=stb.Top-trv.Top*2;
trv.OnAddition=trv_Addition;

// Правый ListBox
lsb=new TListBox(frm);
lsb.BorderStyle=bsSingle;
lsb.Left=trv.Left*2+trv.Width;
lsb.Top =trv.Top;
lsb.Width =frm.ClientWidth-lsb.Left-trv.Left;
lsb.Height=trv.Height;
lsb.Color=trv.Color;

// Заполнение дерева
trv.LoadFromString(
"Узел 1\n"+
" Узел 1-1\n"+
"Узел 2\n"+
" Узел 2-1\n"+
" Узел 2-2\n"+
"Узел 3\n"+
" Узел 3-1\n"+
" Узел 3-2\n"+
" Узел 3-3"
);

trv.SetFocus();
frm.ShowModal();

// Обработчик события OnAddition
function trv_Addition(trv,trn)
{
  lsb.Items.Add(trn.Text);
}