Treeview Node einfügen

[Hansa]

Hi,

ich muß mir den Treeview doch jetzt genauer ansehen. Vorerst will ich nur folgendes erreichen : zu jedem der 10 Einträge sollen 3 Untereinträge erscheinen :

Delphi-Quellcode:

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

Der Effekt davon ist nun der, daß ich unter jedem Eintrag noch drei Einträge habe. Zu welchem Haupteintrag die gehören ist nicht ersichtlich. Was ist da falsch ?