Treeview的问题，请高手来帮帮忙(50分)

跟目录
+同学
+朋友
+亲戚
在数据表中有一个字段名为“类型”我想把类型为同学的姓名打到子及目录同学中，类型为“朋友”的姓名字段打到子及目录朋友中！！！！我没作出来！！！
if ADOquery1.FieldByname('类型').asstring='同学' then
begin
if ADOQuery1.recordCount>0 then
begin
Treeview1.items.索引号.add(adoquery1.fieldbyname('姓名').asstring)//我是这样想的，但是不对，没有语法！
end;
end;
在线等！！！！

var
TX,PY,QQ:TTreeNode;
begin
TX:=TreeView1.Items.AddChild(nil,'同学');
PY:=TreeView1.Items.AddChild(nil,'朋友');
QQ:=TreeView1.Items.AddChild(nil,'亲戚');
with qry1 do
begin
while not Eof do
begin
if FieldByname('类型').AsString='同学' then
TreeView1.Items.AddChild(TX,FieldByname('类型').AsString)
else if FieldByname('类型').AsString='朋友' then
TreeView1.Items.AddChild(PY,FieldByname('类型').AsString)
else if FieldByname('类型').AsString='亲戚' then
TreeView1.Items.AddChild(QQ,FieldByname('类型').AsString)
Next;
end;
end;
end;

TreeView1.Items.Clear ;
node1 :=TreeView1.Items.Add(nil ,'同学录');
node1.ImageIndex :=0;
node1.StateIndex :=-1;
node1.SelectedIndex:=1;

Query2 :=TADOQuery.Create(self);
Query2.Connection :=ADOConnection1;
Query2.SQL.Clear ;

Query :=TADOQuery.Create(self);
Query.Connection :=ADOConnection1;
Query.SQL.Clear ;
Query.SQL.Text :='select distinct 类型 from fd';
Query.Open ;
while not Query.Eof do //添加所有的村庄为第二层子节点
begin
node2 :=TreeView1.Items.AddChild(node1,Query.fieldByName('类型').AsString );
node2.ImageIndex :=0;
node2.StateIndex :=-1;
node2.SelectedIndex:=1;

Query2.SQL.Text :='select 姓名 from fd where 类型=:A';
Query2.Parameters.ParamByName('A').Value :=node2.Text ;
Query2.Open ;
while not Query2.Eof do //添加村庄中的所有客户为第三层子节点
begin
node3 :=TreeView1.Items.AddChild(node2,Query2.fieldByName('姓名').AsString );
node3.ImageIndex :=2;
node3.StateIndex :=-1;
node3.SelectedIndex:=3;
Query2.Next ;
end;

Query.Next ;
end;
Query2.Close;
Query2.Free;
Query.Close;
Query.Free;
end;

谢谢各位了，这个问题我自己解决了！！！！！！！！！！！不过我的分数开没有了啊！！！不好意思啊

多人接受答案了。