Treeview 怎么加入子节点(50分)

我的treeview如下
--dd
|--cc
|--ee
我想在CC下加入一子接点，
TreeView1.Items.AddChild(cc接点 ,'加入的子接点');
请问 cc接点 该怎么指定？

定义好像是TNote**什么的一个变量，我忘了
你看看items.add所返回的是什么类型变量。
然后在addchild(变量,'')

TreeView1.Items.AddChild( TreeView1.Items[0].Items[0] ,'加入的子接点');

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
with treeview1 do
begin
for i:=0 to items.count -1 do
if AnsiCompareText(items.Text,'cc')=0 then
begin
items.addChild(items,'CC子节点');
break;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
procedure SearchNewFile( pathfile : string;
ParentNode: TTreeNode );
var
SearchRec : TSearchRec;
IFound : integer;
newnode : TTreeNode;
FileNode : TTreeNode;
ExtName : string;
begin
IFound := FindFirst( pathfile + '/*.*', faAnyFile, SearchRec );
While IFound = 0 do
begin
Application.ProcessMessages;
Form1.Caption := pathfile+'/'+SearchRec.Name;
if ( SearchRec.Attr = faDirectory ) and ( SearchRec.Name <> '.' )
and ( SearchRec.Name <> '..' ) then
begin
newnode := TreeView1.Items.AddChild( ParentNode, SearchRec.Name );
newnode.ImageIndex := 3;
newnode.SelectedIndex := 3;
SearchNewFile( pathFile + '/' + SearchRec.Name, newnode );
end
else
begin
ExtName := ExtractFileExt( SearchRec.Name );
// if ExtName = '.bmp' then
if SearchRec.Name<>'.' then
if SearchRec.Name<>'..' then
begin
FileNode := TreeView1.Items.AddChild( ParentNode, ExtractFileName( SearchRec.Name) );
FileNode.ImageIndex := 4;
FileNode.SelectedIndex := 4;
end;
end;
IFound := FindNext( SearchRec );
end;

FindClose( SearchRec );
end;
begin
Button1.Enabled:=false;
TreeView1.Items.Clear;
SearchNewFile('C:/Program Files',nil);
Form1.Caption := '就绪';
Button1.Enabled:=true;
end;

CC:TTreeNode;
CC:=Treeview.Items[Index];
TreeView1.Items.AddChild(cc ,'加入的子接点');
其中Index是该节点在TreeView中的绝对位置.

function findyfnode(bm: string ;treeview :Ttreeview): ttreenode;
var i:integer;
begin
result:=nil;
for i:=0 to (treeview as Ttreeview).Items.Count-1 do
begin
if (treeview as Ttreeview).Items.Text=bm then
begin
result:=(treeview as Ttreeview).Items;
exit;
end;
end;
result:=(treeview as Ttreeview).Items.AddChild(nil,bm);
end;
调用：TreeView1.addchild(findyfnode('cc',TreeView1),xxxx);