procedure addtree;
var
firstNode, tmpNode1,tmpNode2: TTreeNode;
begin
FirstNode := tvItem.Items.GetFirstNode;
tmpNode1 := tvItem.Items.AddChild(firstNode,'aa');
tmpNode2 := tvItem.Items.AddChild(tmpNode1,'cc');
tvItem.Items.AddChild(tmpNode2,'dd');
tvItem.Items.AddChild(tmpNode2,'ee');
tvItem.Items.AddChild(FirstNode,'bb');
end;
其他的仿照此例子可搞定。