Не меняется курсор панели

[BLACK_RAIN]

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Panel1.Cursor := crDrag;
end;

procedure TForm1.PanelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Panel1.Cursor := crDefault;
end;

Почему курсор в OnMouseDown не меняется? Обработчики назначены и срабатывают.

[kropotkina-alice]

Screen.Cursor:=crDrag;
и
Screen.Cursor:=crDefault;