Mauszeiger verändern

[xZise]

Ich habe mein Fenster so geproggt, dass man mit <Strg> und gedrücker Maustaste auf das Fenster es bequem bewegen kann...
Also wollte ich noch den Mauszeiger "crSizeAll" dabei anzeigen... Also so geprogt:

Delphi-Quellcode:

procedure TfrmSpeedMemo.mMemoMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
  begin
    mMemo.Cursor := crSizeAll;
    ReleaseCapture;
    Perform(wm_syscommand,$f012, 0);
  end;
end;

procedure TfrmSpeedMemo.mMemoMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mMemo.Cursor := crDefault;
end;

Theorie => Cool ^^
Praxis => Der Mauszeiger ändert sich erst, nachdem man die RMT losgelassen hat... Aber dann muss ich nochmal drücken, um ihn wieder zurückzuändern...

Gibt es eine "Mauszeigerrepaint"-Möglichkeit?