В событии OnDragOver в зависимости от нажатия шифта хочу менять вид курсора.

один из вариантов:

procedure TFmGrpList.tvGrpDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := .... мои условия;
if Accept then begin
if (GetKeyState(VK_SHIFT)>=128) then
(Sender as TDxDbTreeList).DragCursor:=crDragMove
else
(Sender as TDxDbTreeList).DragCursor:=crDragCopy;
Application.ProcessMessages;
end;
end;

курсоры определены и статически прекрасно работают.

А ни хрена не выходит:(

Я уже замучился вконец.
Если есть работающий кусок кода, киньте пожалуйста!