Новый пункт в TTreeView

[Marsel737]

Всем доброго времени суток.

Подскажите пожалуйста как создать новый пункт в TTreeView. На похожие темы прощу не отправлять, потому что как создать к примеру кнопку или картинку я знаю, но как создать новый пнукт нет, думал что там всё по аналогии но вот так не получилось:

var
  NewItem: TCustomTreeView;
begin
  NewItem:=TreeView1.Items.Create(Owner);

[mihali4]

А хэлп не работает?
Вот пример оттуда:

The following example demonstrates how to add nodes and child nodes to a TTreeView control.

procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
    { Add a child node to the node just added }
    AddChild(MyTreeNode1,'ChildNode1');
    {Add another root node}
    MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
    {Give MyTreeNode2 to a child }
    AddChild(MyTreeNode2,'ChildNode2');
    {Change MyTreeNode2 to ChildNode2 }
    { and add a child node to it}
    MyTreeNode2 := TreeView1.Items[3];
    AddChild(MyTreeNode2,'ChildNode2a');
    {Add another child to ChildNode2, after ChildNode2a }
    Add(MyTreeNode2,'ChildNode2b');
    {add another root node}
    Add(MyTreeNode1, 'RootTreeNode3');
  end;
end;

[Marsel737]

mihali4, испробывал я этот код и ноль эмоций, я его прям в таком виде и забил в свою прогу, может надо было чё нибудь подправить?

[mihali4]

Ничего править не надо.
Работает на ура... Все ноды появляются.

[Marsel737]

Хм.. странно и правда работает... но в первый раз не работало

mihali4, спасибо за помощь

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

А как теперь на новый пункт процедуру подвесить??? Не на один раз, причём. Новые пункты сохраняю потому что и нужно чтобы ещё и они обрабатывлись