delphi7.0安装目录下的Demos下怎么没有TreeView的演示工程？谁能发一个给我啊？(100分)

delphi7.0安装目录下的Demos下怎么没有TreeView的演示工程？谁能发一个给我啊？
邮箱： fxhua1979@163.com
谢谢

C:/Program Files/Borland/Delphi7/Demos/CustomDraw

那个太差了，不够全面啊
我要全面点的，用代码实现添加、删除、插入、拖动、编辑（更名）等常用功能的，还要包括从数据库装入各个树节点的。
有这方面的实例码？我自己慢慢学习恐怕来不及了，马上要写成程序。

给你的地址，发一个别人的给你。包含了你要的这些功能。

我找到了，是这里下载的。你自己下载就可以。
http://www.2ccc.com/article.asp?articleid=2974

type
TTreeNodeData=^TNodeData;
TNodeData=record
bm:String;
end;

procedure TFMW_0101_SPXX.MakeRoleFuncTree;
Var
ParentNode,TempNode: TTreeNode;
p :TTreeNodeData;
sTemp : String;
begin
//装载根目录
TV_List.Items.Clear;
ParentNode:=TV_List.Items.AddFirst(nil,'所有类型');
ParentNode.ImageIndex := 3 ;
ParentNode.SelectedIndex := 2 ;
//装载一级目录
With DQ_SPLX Do
Begin
if not Active then Open;
if IsEmpty then Exit;
First;
While Not Eof Do
Begin
sTemp := FieldByName('SPLX_PK').AsString;
New(p);
p.bm :=sTemp;
TempNode:=TV_List.Items.AddChildObject(ParentNode
,FieldByName('SPLXMC').AsString,p);
TempNode.ImageIndex := 1;
TempNode.SelectedIndex := 2;

////装载(子模块)

Next;
End;
end;
end;

HHH