delphi 节点遍历

问下大家个问题啊
我这个人员对应部门，我好比项目一部点击下，会出来包括节点以下的所有人员

但是我写的这个，不知道怎么把下级节点人员查找出来
好比项目一部的下级节点裁剪部下的人员我就查询不出来。。。不知道怎么办。。。各位大神。。。。。帮个忙。。
不胜感激，方法最好具体点啊。。
[解决办法]
参考http://blog.csdn.net/bdmh/article/details/5857236，这里是全部读取过来了，如果你在点击时读取，就在treeview的节点展开事件中读取下一级
[解决办法]

var
  p:Ttreenode;
  b,e,i:integer;
  s:string;

p:=TV.selected;
b:=p.AbsoluteIndex;
if p.getNextSibling=nil then
  b:=TV.items.count-1
else
  b:=p.getNextSibling.AbsoluteIndex-1;
s:='''-1'''
for i:=b+1 to e do
  s:=s+','''+TV.items[i].text+'''';
s即所有子节点的列表