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

type
  tpointer=^tzeiger;
  Tzeiger=record
         wert:integer;
         L_Next:Tpointer;
         R_next:Tpointer;
         end;

Procedure TForm1.trv2_Tiefensuche(Knoten:tpointer; vorheriger:TTreeNode);
Var node : TTreenode;
begin
  If (Knoten = NIL) then
    exit;
  If (vorheriger = NIL) then begin
  // Aus sich einen Knoten erstellen
    node := treeview1.Items.getfirstnode;
  end else begin
    node := treeview1.Items.AddChild(vorheriger,IntToStr(Knoten^.wert));
  end;
  trv2_Tiefensuche(Knoten^.L_next,node);
  trv2_Tiefensuche(Knoten^.R_next,node);
end;					

1:

node := treeview1.Items.getfirstnode;