Hallo calibra,
ich habe Deine Sourcen gut nutzen können, vielen Dank für die Anregung.
Habe das Ganze in eine fix einbindbare
Unit mit schmaler Schnittstelle gegossen:
function DragDropToExtern( const DragDir: string; const DragFiles: TStringDynArray; OnBeforeDrop: TFunc<boolean> = nil ): boolean;