树型控件和表相连的问题(50分)

一个表中有
班级名称 系名
管理971 管理系
管理981 管理系
电力971 电力系
电力972 电力系
动力971 动力系

现在要把他加到树型控件里
|_管理系
| |_管理971
| |_管理981
|_电力系
| |_电力971
| |_电力972
|_动力系
|_动力971

该怎么办?谢谢!最好给出代码!

var
Node: TTreeNode;
begin
Node := TreeView.Items.add (NIL, '管理系');
TreeView.Items.AddChild(Node, '管理971');
TreeView.Items.AddChild(Node, '管理981');
....
....
end;

var
Node: TTreeNode;
begin
Node := TreeView.Items.add (NIL, '管理系');
TreeView.Items.AddChild(Node, '管理971');
TreeView.Items.AddChild(Node, '管理981');

Node := TreeView.Items.add (NIL, '电力');
TreeView.Items.AddChild(Node, '电力971');
TreeView.Items.AddChild(Node, '电力981');
....
....
end;

var
aNode: TTreeNode;
begin
if not table1.active then Table1.Open;
table1.first;
while (not table1.eof) do
begin
aNode := TreeNode1.GetFirstNode;
while (aNode<>nil) do
if aNode.Text=table1.FieldByName('系名').AsString then
break;
else
aNode := aNode.GetNextSibling;
if aNode=nil then
aNode := TreeNode.Node.AddChild(nil,table1.FieldByName('系名').AsString);
TreeNode.Node.AddChild(aNode, table1.FieldByName('班级名称').AsString);
end;
end;

OH,在加完少了一句代码：Table1.Next;

接受答案了.