delphi中当treeview节点遍历有关问题

delphi中当treeview节点遍历问题
delphi中当treeview选中一个节点时如何遍历这个节点下的所有一级节点

[解决办法]

Delphi(Pascal) code

procedure getNode(tn:TTreeNode);var  i:integer;begin  for i:=0 to tn.Count-1 do  begin    Form1.Memo1.Lines.Add(tn.Item[i].Text);    if tn.Item[i].HasChildren then       getNode(tn.Item[i]);  end;end;procedure TForm1.Button1Click(Sender: TObject);begin  Memo1.Lines.Clear;  getNode(TreeView1.Items[StrToInt(Edit1.Text)]); //Edit1输入节点end;
[解决办法]
探讨

...遍历这个节点下的所有一级节点