怎样在TreeView上查找， 且可以简单快速(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
i :Integer;
begin
for i:=0 to treeview1.Items.Count-1 do
begin
showmessage(treeview1.Items.text);
end;

end;

function TreeFindItem(Sender: TTreeView; NodeItem: TTreeNode; Name: String): TTreeNode;
begin
if NodeItem = nil then NodeItem := Sender.items.getfirstnode
else NodeItem := NodeItem.getfirstchild;
//NodeItem is now the first item of the desired level
//if this level has no items, NodeItem is nil

if (NodeItem <> nil) and (NodeItem.text <> Name) then
repeat
NodeItem := NodeItem.getnextsibling;
until (NodeItem = nil) or (NodeItem.text = Name);
Result := NodeItem;
end;

treeview.savetostream的方法
tstringlist有loadfromstream的方法
tstringlist有indexof的方法可以使用

多人接受答案了。