Problem mit Drag&Drop bei TTreeView

[markus.r]

Hallo,

in einem TTreeView habe ich Drag&Drop implementiert ueber eine Methode:

void __fastcall TFrameSchema::TreeView1EndDrag(TObject *Sender,
                                               TObject *Target, int X, int Y)

Nach der Migration von CLX auf VCL haben die Koordinaten X und Y immer 0.

Laut Handbuch drücken diese Koordinaten das Ziel des Drag&Drop-Vorgangs aus, wobei man sich aus den Koordinaten mit GetNodeAt(X,Y) die betreffende TTreeNode suchen konnte.

Mit VCL klappt das nicht mehr, da X und Y immer 0 sind, egal wohin man zieht.
Bei CLX hat das exakt so einwandfrei funktioniert.

Was mache ich falsch?
Vielen Dank