探讨: 人事系统中树型结构的部门 界面如何做的直观？

我厂里的部门是分级别的，最上层是一个总部门结点。总部门下面有几个大部门，
大部门的下面还有下级部门，
下级部门还有下下级部门.....大概有3、5层。Delphi功能强大，在定义部门表时能否做到想用Viso画流程图一样定义
部门代码、部门名称、上级部门等资料？同样，在录入人事资料，选择部门时，能否做到直接在一个类似流程图的窗口中展开一级一级结点，再选取结点下的部门？