SaveToString

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

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

// Outline
otl=new TOutline(frm);
otl.BorderStyle=bsSingle;
otl.Left=otl.Top=10;
otl.Width=150;
otl.Height=stb.Top-otl.Top*2;

// Заполнение дерева
for (i=1;i<=3;i++) {
  on1=new TOutlineNode(otl);
  on1.Text="Узел "+i;
  for (j=1;j<=i;j++) {
    on2=new TOutlineNode(on1);
    on2.Text="Узел "+i+"-"+j;
  }
}

// Кнопка
btn=new TButton(frm);
btn.Caption="Сохранить";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=(otl.Left+otl.Width+frm.ClientWidth-btn.Width)/2;
btn.Top =(frm.ClientHeight-btn.Height)/2;
btn.OnClick=btn_Click;

otl.SetFocus();
frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  alert(otl.SaveToString());
  otl.SetFocus();
}