如何显示一个树?(函数已经有了)

请问,如何把一个生成树的函数,显示并加入到根节点"全部"中....???如何改?或有没别的办法?在线等....
//部门数据结构(3层树)DID(自动编号)    Dname(名称)     ParentID(父编号)
--------------------------------------------------
......//显示树的函数
procedure TMainForm.ReadTree(tnode:TTreeNode;Fvalue: String);
Var
  i: integer;
  Flist:TStringList;
  Flist1:TStringList;
  str,s:string;
  snode:TTreeNode;
begin
with datam.q1 do
begin
  close;
  sql.clear;
  sql.add('select * from Depart ParentId in (Select did from Depart where Dname='''+Fvalue+''' )');
  Open;
  First;
  Flist:=TStringList.Create;
  Flist1:=TStringList.Create;
  while not eof do
    begin
      Flist.Add(trim(fieldbyname('Dname').asstring));
      Flist1.Add(fieldbyname('Did').asstring);
      next;
    end;
    for i:= 0 to flist.Count-1 do
    begin
      s:=flist1.Strings[i];
      str:=flist.Strings[i];
      snode:=Treeview1.items.addchild(tnode,str);
      ReadTree(snode,s);
    end;
  flist.free;
  flist1.free;
end;
end;//下面要改的代码
procedure TMainForm.FormShow(Sender: TObject);
var
Root0:TtreeNode;
begin
    Root0:=TreeView1.Items.Add(nil,'全部')
    //这里加什么才能把树的全部显示到上面的节点下?
end;