VirtualTreeView: Problem mit MoveTo - Wann ist schluß?

[Hedge]

Ich habe in meinem Programm eine VirtualTreeView mit mehreren Elementen 0. Ordnung der mehrere Elemente 1. Ordnung jeweils untergeordnet sind.

Es gibt einen Button mit dem man ein Objekt um eine Stelle nach unten bewegen kann.
Das Problem war zu erkennen wann das nicht mehr geht.
Bei den Elementen 1. Ordnung ging dies relativ einfach mit:

if (VST.FocusedNode<>VST.BottomNode) Bei Elementen der 0. Ordnung geht das natürlich nicht, weil die Node im Fokus ja nur die BottomNode auf ihrem Level ist.

Ich habe jetzt eine Stunde unzählige Sachen versucht, aber wenn man nach unten drückt dann springt das letzte Element 0. Ordnung eben auch wieder nach ganz oben.

Bewegt werden die Objekte 0. Ordnung mit folgendem Code:

VST.MoveTo(VST.FocusedNode, VST.GetNextSibling(VST.FocusedNode), amInsertAfter, false)