如何用程序代码中给treeview控件加上内容(50分)

我在窗体上放三个控件，一是BUTTON，二个是TREEVIEW,三是EDIT。想通过点击BUTTON按钮，
将EDIT.TEXT内容添加到TREEVIEW的ITEMS中，请教如何实现。

procedure TForm1.Button1Cliec(Sender: TObject);
var
Node: TTreeNode;
begin
Node := TreeView1.Selected;
TreeView1.Items.Add(Node,Edit.Text); //Add a subnode under Current node
//or you can add a node under root
//TreeView1.Ttems.Add(nil,Edit.Text);
end;

接受答案了.