Drag & Drop im Edit erkennen und farbig markieren

[Helmi]

Ich hab schon überlegt den Cursor im OnMouseMove abzufragen, aber leider funktioniert das auch nicht.
Der Screen.Cursor scheint nicht verändert zu werden, wenn Explorer-Drag & Drop aktiv ist

Habs so probiert:

Delphi-Quellcode:

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Screen.Cursor <> crDefault then
    Edit1.Color := clRed
  else
    Edit1.Color := clBlue;
end;