如何得到TTREEVIEW中某个结点的子结点的数目？

Question

Var
  Node :TTreeNode;
  Max,Min :Integer;//该节点的绝对索引的最大,最小值
  N :Integer; //该节点的子节点的数目
If Node.HasChildren Then
  Begin
    Min :=Node.GetFirstChild.AbsoluteIndex;
    While Node.HasChildren Do
        Node1 :=Node1.GetLastChild;
    Max :=Node1.AbsoluteIndex;
    N :=Max-Min+1;

Answer 1

to：LHB20010701(DSF)　
有没有更简单的？？？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  iCount: integer;
  Node: TTreeNode;
begin
  iCount := 0;
  Node := TreeView1.Selected.getFirstChild;
  while Node <> nil do
  begin
    inc(iCount);
    Node := Node.GetNext;
  end;
  ShowMessage(IntToStr(iCount));
end;

Answer 3

node.count只能求得它的子节点数，他的孙子节点没有计算在内。
看来...............................................等.........