求救？？？怎样用delphi做一个三级的动态目录树？？

Question

var NewItem:TMenuItem;
begin
  NewItem := TMenuItem.Create(MainMenu);
  NewItem.Caption := '公司';
  NewItem := TMenuItem.Create(NewItem);
  NewItem.Caption := '部门';
  NewItem := TMenuItem.Create(NewItem);
  NewItem.Caption := '员工';
end;

Answer 1

comptable.first;
while not comptable.eof do
begin
  treeview1.items.addchild(nil, comptablecompname.asstring);
  comptable.next;
end;deptable.first;
while not deptable.eof do
begin
  parentnode := findcompnode(deptablecompname.asstring);
  treeview1.items.addchild(parentnode, deptabledepname.asstring);
  deptable.next;
end;...员工也是如此。