TListView Multiselect and dmAutomatic DragMode

[M+AUDIO]

Hello,
There is an issue with TListView + Multiselect and dmAutomatic DragMode on MS Windows.

01 - Download the attached project. compile and run.
02 - Perform a single click on the white space below the items. then move your mouse. (DON'T click and drag. just a single left click. release the button. and move your cursor).
03 - And you will see it starts to drag, but dragging nothing. which is not cool.

This behavior is not available on GTK2 linux (tested inside xfce and Cinnamon). (which I thing is because of this:
http://forum.lazarus-ide.org/index.php?topic=18048.0
)
(Lazarus Trunk, FPC Trunk, Windows 7)
PS: Drag n Drop Arranging is a very user friendly operation. Please, don't disappoint me.

[M+AUDIO]

OK then ,

for now there is a workaround :
OnMouseMove event of the ListView:

Code: Pascal  [Select][+][-]

1.   if not (ssLeft in Shift) then
2.     (Sender as TListView).EndDrag(False);  

but, is this a bug or not?

EDITED: replaced workaround with a better approach.