TreeView连接数据库的展开问题

我的TREEVIEW中显示的是数据表里的数据，我想在窗体一打开的时候TREEVIEW中各父子节点就自动展开，即自动展开显示父节点和父节点下的子节点中的数据。我只会在窗体一打开的时候自动显示父节点中的数据，不知道如何在窗体打开的时候父节点下的子节点也自动展开显示（注意要显示的是数据表里的内容），请大家给出代码，谢谢。以下是我写的窗体父节点展开的代码：
procedure Tfrm_SelCardHand.FormCreate(Sender: TObject);
var
  i:integer;
  node:TTreenode;
  list:tstringlist;
  s:ansistring;
begin
  DataModule2.adoquery1.close;
  DataModule2.adoquery1.sql.clear;
  DataModule2.adoquery1.sql.add('select * from Dict_SNSort');
  DataModule2.adoquery1.open;
  list:=tstringlist.create;
  while not DataModule2.adoquery1.eof do
  begin
    list.Append(DataModule2.adoquery1.fieldbyname('SNSort_Name').asstring);
    DataModule2.adoquery1.next;
  end;
  for i:=0 to list.count-1 do
  begin
    s:=list.Strings[i];
    node:=treeview1.items.add(treeview1.selected,s);
   end;
TreeView1.FullExpand;
end;