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;