TreeView: TreeNode -> untergeordneter Eintrag

[toms]

Vielleicht so?

Delphi-Quellcode:

var
 i: Word;
 Node: TTreeNode;
begin
 Assert(TreeView1.Items.Count > 0);
 with TreeView1 do
 begin
   Node := Items[0];
 repeat
   Items.AddChild(Node, 'Untereintrag');
   Node := Node.GetNextSibling
 until  Node = nil;
end;