procedure lbFoldersToImportDragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation)