So gehts das auch nicht.
Zunächst empfehle ich eine lokale Variable für die TreeNode
s:
Delphi-Quellcode:
var
tnodes : TTreeNode:
begin
tnodes := TreeView1.Items;
Dann ist es so, dass tnodes.Add() ein TTreeNode-Objekt zurückgibt.
(man beachte den Unterschied zwischen TTreeNode und TreeNodes)
Dieser Knoten muss zwischengespeichert werden:
Delphi-Quellcode:
var
node : TTreeNode;
...
begin
...
node := tnodes.Add(nil,st.Strings[i]);
Das Property Selected wird hier überhaupt nicht benötigt.
tnodes.AddChild(node, ADOQuery1.FieldByName('Feld1').AsString);