Zmiana kursora na czas wykonywania procedury.

Witam

Mam dość banalny chyba problem:
Chciałbym aby po naciśnięciu Button1 kursor zmieniał się na "klepsydrę" do czasu zakończenia wykonywania procedury.

Do procedury przycisku dopisałem:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form3.Cursor:=crHourGlass; 
  Application.ProcessMessages;

// KOD PROCEDURY

 Form3.Cursor:=crDefault;
 Application.ProcessMessages;  
end;

Jednak nie zdaje to egzaminu - kursor nie zmienia się... dlaczego ?

Pozdrawiam

Musisz zmienić kursor ekranu - nie formy:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;

  // KOD PROCEDURY

  Screen.Cursor := crDefault;
end;

tyle wystarczy.