关于树形结构的有关问题

关于树形结构的问题
fID     fParentID         fName
1               0                   公司
2               1                   业务部
3               2                   班房
4               2                   成品仓库
5               1                     财务部
6               1                   采购部

有一如上所示数据表，通过链接treeview显示，现想通过点击节点，显示
一种形式：如点击“班房 "Label控件中便显示 "公司/业务部/班房 "请问这样的代码怎样实现？

[解决办法]
procedure TForm1.TreeView1Click(Sender: TObject);
var
Node: TTreeNode;
S: String;
begin
Node := TreeView1.Selected;
repeat
S := Node.Text + '/ '+S;
Node := Node.Parent;
until Node = nil;
Label1.Caption := Copy(S,1,Length(S)-1);
end;