ListView+Object (Delphi)

[VadEr]

Доброго времени суток!

Подскажите пожалуйста, как реализовать следующее:
- имеется объект-класс(типа дерева), как отдельные ветви этого класса привязать к элементам списка ListView, а затем удаляя эти элементы - удалять и ветви класса?

[evg_m]

1.хранить в дереве в листе ссылку на ItemList
r:=ListView1.Items.Add;

2.хранить в Listview ссылку на ветвь
ветви имеют идентификаторы (idlist)
2.1. Listview.iadditem('новый лист',tobject(idlist))

2.2. r:=ListView.Items.add;
r.data:=idlist;

[VadEr]

Благодарю!