如何实现在在treeview 中对子目录进行查询定位,实现添加子目录(100分)

要求用一个edit框,和两个button,分别实现查询,和定位,添加edit.text.

VAR MyTreeNode,FindTreNode:TTreeNode;
i:integer;
begin
MytreeNode:=treeView节点的名称
for I:=0 to MytreeNode.count do
begin
if MytreeNode.Item.Text=Edit.text then
begin
FindTreNode:=MytreeNode.Item;
break;
end;
///添加FindTreNode子目录
treeView1.Items.AddChild(FindTreNode,添加子节点名称);
///添加FindTreNode子目录
treeView1.Items.Add(FindTreNode,添加同级节点名称);

FindTreNode.
end;

添加子目录可用lsys老兄说的方法，如果遍历一个子目录，可用下面的方法：
tmpnode:Ttreenode;
tmpnode:=treeview1.selected.GetFirstChild;
while assigned(tmpnode) do
begin
if tmpnode.Text =str then
tmpnode:=currnode.GetNextChild(tmpnode);
end;