Treeview Node einfügen

[SirThornberry]

das ganze muss wie folgt abgeändert werden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i,j : integer; 
    LNode: TTreeNode;
begin 
  for i := 1 to 10 do
  begin 
    LNode := TreeView1.Items.Add(NIL,IntToStr (i)); 
    for j := 1 to 3 do 
      TreeView1.Items.AddChild(LNode, IntToStr(j)); 
  end; 
end;