VirtualTree EIntOverflow beim Beenden nach Expand (gelöst)

[Novi]

habe jetzt statt ...
// Include(GVST.RootNode.FirstChild.States, vsExpanded);

GVST.Expanded[GVST.RootNode.FirstChild] := true;

... zugewiesen, und siehe da, muss den Node beim Destroy jetzt nicht mehr explizit de-expandieren (find kein geeignetes Wort fürs Gegenteil von expandieren, schäm )
Kann mich jetzt auch vage erinnern, dass ich mit Include bei den Node-States schon einmal Probleme hatte, ... hier also EINFACH NICHT VERWENDEN, denk ich mal
(mit VST.Expanded[Node] wird ja auch noch in der aufgerufenen Methode ToggleNode ein Wust an Code mitgeführt, was wohl bei einem normalen Include nicht der Fall ist)

Eine SSCCE erspar ich uns hiermit, wie krieg ich ein "gelöst" auf diesen Thread-Header?
PS: Herzlichen Dank für Antwort/Hilfe