Поиск и путь к узлу

Code:

Function FindNode(Tree: TTreeView; Node: TTreeNode; S: String): TTreeNode;

Var t:Integer;

Begin

Result:=nil;

{ Если поиск идёт в корне }

IF not Assigned(Node) then

Begin

  Node:=Tree.Items.GetFirstNode;

  While Assigned(Node) Do

   Begin

    IF Node.Text = S then

     Begin

      Result:=Node;

      Break;

     End; {IF}

    Node:=Node.GetNextSibling;

   End; {While}

  { или если в другой ветви }

End else For t:=0 to Node.Count - 1 Do IF Node[t].Text = S then

Begin

  Result:=Node[t];

  Break;

End; {else}

End;

Code:

for i := 0 to pred(MyTreeView.Items.Count) do

begin

if MyTreeView.Items[i].Text = 'Банзай' then

   break;

end;