Bei OnMouseDown SOFORT den Cursor ändern

Hallo Leute
Ich möchte bei click (OnMouseDown) auf ein Image den Mouse-Cursor ändern.
Aber erst beim loslassen der Maustaste ändert er sich !!!
Habe schon über Application->ProcessMessages() nachgelesen aber das hilft mir nicht weiter.
Das ist der Code bisher:

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Ziehen(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Form1->Caption="Test";
Image1->Cursor=crDrag;
Application->ProcessMessages();
}

Kann mir jemand einen Tip geben?
Danke

DJ BlackEagle

Downl ist auf für losgelassen.

Nimm das andere Ereignis für: OnMouseUp.

Hi
Ich muss auf MouseDown den Cursor verändern.
MouseUp hilft mir nicht.
Trotzdem Danke...

-**xXx**-

Du hast recht der Cursor ändert sich zu spät
Es geht aber wenn du

Screen->Cursor = crHourGlass;

verwendest. Dann passierts sofort.

Hey -=]xXx[=-

WOW Funzt tatsächlich, Danke nochmal !