1:
2:
3:
4:
5:
6:
7:

function searchNodeByText( node: String ): String;
  //...
begin
  //Hier kann eine Bedingung in einer Schleife rumlungern
  Result := Result + searchNodeByText( newNodeText );
  //...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

function TForm1.SearchLastNode (const Value1, Value2, Value3: string): TTreeNode;
var
  i, j  : integer;
  aNode : TTreeNode;

  function GetLastNode (aNode: TTreeNode): TTreeNode;
  begin
    if aNode.HasChildren then
      // falls Unterknoten vorhanden sind, diese ebenfalls berücksichtigen
      result := GetLastNode (aNode.GetLastChild) // oder:  GetLastNode (aNode.Item[aNode.Count-1]);
  end;

begin
  result := nil; aNode := nil; i := 0;

  // Erster Knoten finden, der auf Level 0 liegen kann ...
  while not Assigned (aNode) and (i <= TreeView1.Items.Count-1) do
    if TreeView1.Items.Item[i].Text = Value1 then
      result := TreeView1.Items[i]
    else
      inc (i);

  // Zweiter und Dritter Wert suchen ...
  if Assigned (aNode) then
  begin
    i := 0;
    while not Assigned (result) and (i <= aNode.Count-1) do
      if aNode.Item[i].Text = Value2 then
      begin
        j := 0;
        while not Assigned (result) and (j <= aNode.Item[i].Count-1) do
          if aNode.Item[i].Item[j].Text = Value3 then
            result := aNode.Item[i].Item[j]
          else
            inc (j);
      end
      else
        inc (i);
  end;

  // Letzter Knoten des Knoten (Land, Stadt, Strasse) finden ...
  if Assigned (result) then
    result := GetLastNode (result);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure SearchTree( 
  Tree: TTreeView; var NodeHandle: HTreeItem; 
  var SearchWords: Array of String 
);
var currentNode: TTreeNode;
begin
  if Length( SearchWords ) <= 1 then
  begin
    currentNode := Tree.GetNode( NodeHandle );
    // aktuelle Ebene im Baum durchlaufen
    while currentNode <> nil do
    begin
      // Text gefunden? dann bei den untergeordneten weiter
      if currentNode.Text = SearchWords[0] then
      begin
        SearchWords := Copy( SearchWords, 1, Length( SearchWords ) );
        if currentNode.HasChilds then
        begin
          NodeHandle := currentNode.GetFirstChild.ItemID;
          // Hier ist der Selbstaufruf!!
          SearchTree( Tree, NodeHandle, SearchWords );
        end;
      end;
      currentNode.GetNext();
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

 var 
  searchList: Array of String;
  searchedTreeNode: TTreeNode;
  searchedTreeNodeID: HTreeItem;
  //...
begin
  //dies nur, um überhaupt eine gültige Liste haben (falls jemand auf den C&P-Gedanken kommt  :) )
  searchList := VarArrayOf( 'Land1', 'Stadt3', 'Strasse2', 'Name1', 'Schluessel1' );
  searchedTreeNodeID := myTree.Items.GetFirstNode.ItemID;
  SearchTree( myTree, searchedTreeNodeID, searchList );
  // mit der ID kann man sich den Knoten so holen
  searchedTreeNode := myTree.Items.GetNode( searchedTreeNodeID );
  //...
end;