Замена crNoDrop при перемещении элементов

[Хамяг]

Доброго времени суток. Организовал перемещение элементов в ListBox при помощи мыши с помощью Drag&Drop.

Установил курсор DragCursor = crDefault, однако данное свойство не имеет никакого эффекта при попытке перемещения элемента за границы, т.е. появляется отвратительный курсор crNoDrop. Этот курсор заменяется объектом класса TDragControlObject внутри TControl, и доступа я к нему не имею.

Как можно программно заменить этот курсор на системный (допустим, на crNo)?

[Хамяг]

вопрос ещё актуален