TreeView中怎样遍历整个树(不小于三层结点)

Question

随便你好多层，以下递归代码实现类似功能：
  //返回结点子树(不含该结点)中的项数
  Function GetChildCount(Node:TTreeNode):Integer;
  var
    i:Integer;
  Begin
    i:=0;
    IF Node.Count>0 Then
    Begin
      Node:=Node.getFirstChild;
      While Node<>nil do
      Begin
        Inc(i);
        Inc(i,GetCheckCount(Node));
        Node:=Node.getNextSibling;
      End;
    End;
    Result:=i;
  End;