Tree und seine Eigenschaften

[Muetze1]

Etwas performanter, da er nicht tiefer als bis zur 2. Ebene eintaucht:

Delphi-Quellcode:

Procedure Button1.Click(Sender: TObject);

  Procedure SecondLevel(AFirstNode: TTreeNode);
  Var
    lChild: TTreeNode;
  Begin
    If Assigned(AFirstNode) Then 
    Begin
      lChild := AFirstNode;

      While Assigned(lChild) Do
      Begin
        If lChild.Level < 1 Then
          SecondLevel(lChild.GetFirstChild)
        Else
          ShowMessage(lChild.Text);

        lChild := lChild.GetNextSibling;
      End;
    End;
  End;

Begin
  SecondLevel(TreeView1.Items.GetFirstNode);
End;