ListView-Problem in SelectItem() mit MessageDlg und DragDrop

[Brainshock]

Hallo,

ich arbeite gerade an einem Programm mit einer Listview die eine Liste von Bilddateien enthält. Das aktuell ausgewählte Bild wird in einem Image dargestellt und kann verändert werden. Beim Wechseln der Datei über das Listview soll dem Benutzer über einen MessageDlg eine Speichern-Abfrage gestellt werden und hier liegt das Problem, aus irgendeinem Grund springt der Mauscursor nach dem Schließen des Dialogs auf einen anderen Zeiger (Drag und Drop like) und zeigt auch sonst ein seltsames Verhalten.
Das Problem liegt scheinbar im aktiviertem Drag und Drop der ListView.

Ich habe mal ein Beispielprogramm angehangen, was das Problem simuliert.


Hat vielleicht jemand eine Idee bzw. Lösung/Workaround für das Problem?



PS: Das Beispiel ist in Delphi7 geschrieben.