Не могу разобраться с TreeView

[Seqular]

Столкнулся вот с такой проблемой.. не знаю, как решить. На форме контрол TreeView1.
В общем код:

 
Var     TopNodeItem: TTreeNode;
....
Begin
TopNodeItem := TTreeNode.Create(nil);
TopNodeItem := TreeView1.Items.Add(nil, '1');
ShowMessage(TopNodeItem.text);
TopNodeItem.Destroy;
End;

Ничего необычного! Выводится сообщение "1", но после этого в TreeView пусто!! Элемент "1" остается только если не делать TopNodeItem.Destroy... Почему так? Ведь, как я понимаю, дестрой делать обязательно?

[bphoenix]

Создавать экземпляр класса TTreeNode вручную вовсе необязательно. Вместо этого просто используй это:
TreeView1.Items.Add(nil, '1');

Уничтожать ветку тоже не нужно, обо всём позаботится сам TreeView

[Seqular]

Мне это понадобилось, чтобы "запомнить" запись, которая добавилась.. И потом быстро к ней вернуться... Вот. Есть ли другие способы?

[bphoenix]

Ну тогда ты сделал почти правильно Нужно вот так:

var TopNodeItem: TTreeNode;
...
begin
TopNodeItem := TreeView1.Items.Add( nil, '1' );
...
// если нужно удалить ветку в процессе работы программы пиши:
TopNodeItem.Delete; // удаляет ветку и всех её деток
end;