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

Function TreeViewItemSearch (aInTreeView: tTreeView; aSearchText: String): tTreeNode;
Var
  Loop: Integer;
Begin
  Result := nil;

  If Not Assigned (aInTreeView) or (aSearchText = '') Then
    Exit;

  For Loop := 0 To aInTreeView.Items.Count - 1 Do
    If aSearchText = aInTreeView.Items[Loop].Text Then
      Begin
        Result := aInTreeView.Items[Loop];
        Break;
      End
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:

procedure TForm1.Button4Click(Sender: TObject);
Var
anzahl,check : integer;
sText,parent        : string;
Knoten       : TTreeNode;
begin
anzahl := 1000;
sText := '01';
check := 0;

       if Table1.FindKey(['0'])then
                                 begin                                                      //Root anlegen
                                  with TreeView1.Items.AddFirst(  nil,  Table1Key.Value  ) do
                                    begin
                                     Selected := true;
                                  end;
                                 end
                               else Application.MessageBox('Kein Wurzelknoten gefunden','LC Fehler',MB_OK);
       repeat

           if Table1.FindKey([sText]) then
                                            begin
                                            parent := Copy(sText,0,(length(sText)-1));
                                            Knoten := TreeViewItemSearch(TreeView1,parent);
                                            TreeView1.Items.AddChild(  Knoten,Table1Key.Value);
                                            end;

           sText := StrInc(SText);
         anzahl := anzahl-1;
        until anzahl = 1;


end;