是高手就请出招！！！！！！！！！！！！！在线等待！ (分数全部奉上) (0分)

IntraWeb下如何对树进行添加,修改[]，删除。急急急急急！！！

procedure Torguserinfo.inittree;
//初始化单位树形控件
var
strSql:String;
itemroot,itemchild:TIWTreeViewItem;
begin
itemroot:=fmunituserlist1.unittree.Items.Add; //fmunituserlist1是frame
itemroot.Caption :='组织机构'; //unittree是树
itemroot.Name :='Organization';
strSql:='SELECT * FROM Organization WHERE Parentid=CodeItemId ORDER BY CodeItemId';
with DataModule1.dstools do
begin
Active :=False;
CommandText :=strSql;
Active:=True;
while not Eof do
begin
itemchild:=itemroot.SubItems.Add;
itemchild.Caption :=FieldByName('CodeItemDesc').asString;
itemchild.Name :=FieldByname('CodeSetId').AsString+FieldByName('CodeItemId').AsString;
itemchild.OnClick:=ItemClick; //指定点击事件
GetChildNode(Itemchild); //添加子节点过程，省略
Next;
end;
end;
end;
//这个过程是我在一个项目中写的过程，添加节点，编辑和删除都差不多
//你看看吧，不过我没修改，看起来可能费劲，不好意思[]

这些我也知道阿
可是修改，删除还是不知道！