J'ai un problème pour afficher le curser "HourGlass" durant l'execution d'un programme Delphi 7.

Voici un pétit programme d'example:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '123';
Form1.Cursor := crHourGlass; //crDefault;
Application.ProcessMessages();
Sleep(5000);
Label1.Caption := '000';
Form1.Cursor := crDefault;
end;

Voila ce qui se passe :

Une fois quand j'appui sur le bouton1 j'ai le label1 qui affiche le texte " 123 ", ceci instanement, par contre le curser ne change pas! J'ai tous le temps le cursor " crDefault ".

Et c'est ça qui est très embettant .... c'est la même chose dans tous mes programmes!

Est-que il y à un bug dans Derlphi 7?

Merci d'avance pour votre aide.