Danke für die Anworten. Ich hatte das Problem woanders und hatte es nicht erkannt.
hier steht die Antwort.
bei
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var ....
wurde nach einer Variable gefragt.
Da konnte ich net einfach true hinschreiben
Danke euch ihr seidseit
Ps: Hab mir gerade damit tierisch das Delphi Abgeschossen. Irgendwo steckt noch ein Fehler...