TreeView - количество корневых узлов

[Sanprof]

вопрос решил так, не знаю может есть лучший способ, но этот вродь тоже работает

var 
  i: integer;
  t, tend: TTreeNode;
begin     
  i:=0;
  t:=TreeView1.Items[0];
  repeat
    t:=t.getNextSibling;
    if t <> nil then
      tend := t;// вот это и будет конечный узел
    inc(i);
  until t=nil;
end;

[Stilet]

var 
  i: integer;
  t, tend: TTreeNode;
begin     
  i:=0;
  t:=TreeView1.Items[0];
  repeat
    inc(i);tend:=t;
    t:=t.getNextSibling;
  until t=nil;
end;

Хотя это практически тоже самое.