procedure TForm1.Button1Click(Sender: TObject);
var
root_node,cur_node:TTreeNode;
begin
root_node:=TreeView1.Items.AddFirst(nil,'根节点1');
cur_node:=TreeView1.Items.addChildfirst(root_node,'根节点1_child1');
TreeView1.Items.add(cur_node,'根节点1_child2');
root_node:=TreeView1.Items.Add(nil,'根节点2');
TreeView1.Items.AddChildFirst(root_node,'根节点2_child1');
end;
var
root_node,cur_node:TTreeNode;
begin
root_node:=TreeView1.Items.AddFirst(nil,'根节点1');
cur_node:=TreeView1.Items.addChildfirst(root_node,'根节点1_child1');
TreeView1.Items.add(cur_node,'根节点1_child2');
root_node:=TreeView1.Items.Add(nil,'根节点2');
TreeView1.Items.AddChildFirst(root_node,'根节点2_child1');
end;