1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function FindNodeOnLevel(aParentNode: tTreeNode; aCaption: String;
  aLevel: Integer): tTreeNode;
  var
    ActNode : tTreeNode;
begin
  Result := nil; // mit nichts gefunden vorinitialisieren
  if (aParentNode <> nil) and (aParentNode.HasChildren) and
     (aParentNode.Level < aLevel) then begin
    ActNode := aParentNode.getFirstChild; // Mit ersten Kind initialisieren
    while (ActNode <> nil) and (Result = nil) do begin
      if (ActNode.Level < aLevel) and (ActNode.HasChildren) then // noch nciht das richtige Level
        Result := FindNodeOnLevel(ActNode, aCaption, aLevel)
      else if (ActNode.Level = aLevel) and
              (AnsilowerCase(ActNode.Text) = AnsiLowerCase(aCaption)) then // Das ist der gesuchte Knoten
        Result := ActNode;
      ActNode := aParentNode.GetNextChild(ActNode); // Neuen Knoten für neuen Schleifendurchlauf
    end; // mit allen kindknoten wenn noch nichts gefunden wurde
  end; // Wir haben eine Parent welches Kinder hat und sind noch nicht zu tief im baum
end; // FindNode On Level                    

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    SearchNode : tTreeNode;
begin
  SearchNode := FindNodeOnLevel(TreeView1.Items.GetFirstNode, 'Gesucher Text', 4);
end;                    

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

TreeView1.Items.BeginUpdate;
try
  {Hier die Baummanipulationen durchführen}
finally
  TreeView1.Items.EndUpdate;
end;                    

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

 MyNode1 := ProvinzenTree.Items.AddChild(nil, Provinzen[1].Kontinent);
 for i := 1 to 2600 do
 begin
  MyNode1 := FindNodeOnLevel(nil, Provinzen[i].Kontinent, 0);
  if MyNode1 = nil then
   MyNode1 := ProvinzenTree.Items.AddChild(nil, Provinzen[i].Kontinent);
  MyNode2 := FindNodeOnLevel(MyNode1, Provinzen[i].Region, 1);
  if MyNode2 = nil then
   MyNode2 := ProvinzenTree.Items.AddChild(MyNode1, Provinzen[i].Region);
  MyNode3 := FindNodeOnLevel(MyNode2, Provinzen[i].Gebiet, 2);
  if MyNode3 = nil then
   MyNode3 := ProvinzenTree.Items.AddChild(MyNode2, Provinzen[i].Gebiet);
  MyNode4 := FindNodeOnLevel(MyNode3, Provinzen[i].Name, 3);
  if MyNode4 = nil then
   MyNode4 := ProvinzenTree.Items.AddChild(MyNode3, Provinzen[i].Name);
 end;