Drag and Drop von Dateinamen

[DenkDirNix]

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;