Treeview Node hinzufügen ???

[Bernd29bln]

Hallo,

Ich möchte mit einem Button eine Haupt node erstellen, wen ich eine Haupt node selektiere möchte ich eine subnode erstellen .

Mein Code , wo ist der Fehler ?

Delphi-Quellcode:

procedure TForm3.Hinzufugen1Click(Sender: TObject);  
var i : integer;  
    LNode: TTreeNode;  
begin  
  for i := 0 to KatList.Items.Count-1 do  
   if KatList.Items [i].Selected then  
    begin  
     KatList.Items.AddChild(LNode,(Label1.Caption));  
     end else  
     LNode := KatList.Items.Add(NIL,(label1.Caption));  
end;

MFG Bernd