Hallo,
Da es sich um ein Drag & Drop zum Windows Explorer handelt, kannst du nicht die TBaseVirtualTree.DoDragDrop verwenden.
Erstelle IDropSource, IDataObject und rufe DoDragDrop() auf.
Beispiel (ist anzupassen für VST)
http://www.swissdelphicenter.ch/de/showcode.php?id=2335