delphi treeview 遍历所有子集节点

delphi treeview 遍历所有子集节点

procedure TForm1.BitBtnClick(Sender: TObject);
  procedure treeCldnode(Anode: TTreeNode);
  var
    i: integer;
    node: TTreeNode;
  begin

    for i := 0 to Anode.Count - 1 do
    begin
     ShowMessage(Anode.Item[i].Text);
      Node := ANode.Item[i];
      if (node.Count > 0)   then
        treeCldnode(Node);

    end;
  end;
var
  i: integer;
  node: TTreeNode;
begin
  node := TreeView1.Selected;
   treeCldnode(node);

end;