如何在Delphi XE3的TTreeView中添加节点？

Question

我正在使用Delphi XE3开发FireMoney HD应用程序。看来TTreeView类与经典Delphi中的类不同，并且我无法使用旧代码向TTreeView对象添加节点，如下所示：

      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;

虽然Delphi XE3提供的在线帮助非常有限，并且没有这样的示例代码介绍在Delphi XE3 FireMoney HD应用程序中如何执行相同的操作。