index := -1;
node := TreeView1.Selected;
while node <> nil do
begin
　node := node.GetPrevVisible;
　Inc(index);
end;

一番上が0