Problem mit VirtualStringTree

[stifflersmom]

Moin,

vielleicht kann mir jemand kurz helfen.
Ich versuche in einem VS in der 2 Unterebene ein Checkbox darzustellen, allerdings taucht diese immer bei mir in der 1 Unterebene auf (da, wo im Screenshot immer Node steht, soll die Checkbox hin).
Im Anhang mal ein kleiner Screenshot wie das aussieht.

Hier mal die verkürzte Version wie ich die Nodes dem VS hinzufüge

Delphi-Quellcode:

       // Fahrzeugmodellreihe
      Node := FindNodebyModNr(VS_TD, q_td_fahrzeuge.FieldByName('kModnr').AsInteger, q_td_fahrzeuge.FieldByName('hernr').AsInteger);
      If Node = NIL Then
       Begin
       Node := FindNodebyherNr(VS_TD,q_td_fahrzeuge.FieldByName('herNr').AsInteger);
       ArtikelTecDocRec.level :=1;
       ArtikelTecDocRec.HerNr := q_td_fahrzeuge.FieldByName('herNr').AsInteger;
       ArtikelTecDocRec.artikel_id := -1;
              Node.CheckType := ctNone;
       Node := AddVSTStructure(VS_TD, Node, ArtikelTecDocRec);
       End;

       // Fahrzeugvariation
       ArtikelTecDocRec.level :=2;
       
       Node.checkType := ctCheckBox;

       AddVSTStructure(VS_TD, Node, ArtikelTecDocRec);
       q_td_fahrzeuge.Next;

Irgendwie mach ich da was falsch und ich sehe es partout nicht...