怎么将数据读到treeview中

如何将数据读到treeview中？
数据表数据如下结构
科室         姓名
aaaa         001
aaaa         002
bbbb         003
bbbb         004
如何让数据在treeview中树状显示呀？

[解决办法]
算法如下:
IsOnTheTree 用来判断是否已存在该科室
find用来定位room
buildTree建树
具体实现稍微改动下即可

function IsOnTheTree(ExistedStr: TString; Room: String): boolean;
begin
if Room in ExistedStr then
begin
Result := true
end
else
begin
Add to ExistedStr
Result := false;
end;
end;

function findroom(room): TTreenode;
begin
end;

procedure BuildTree(room, Name : String);
begin
if IsOnTheTree(room) then
beign
treeview1.add(findroom(room),name);
end
else
begin
Treeview1.addchild(Treeview1.Topitem, name)
end;
end;