Jak zrobić klepsydrę?

Mam w swoim programie procedurę czasową, na czas jej wykonywania chciałbym aby wskaźnik myszy zamienił się w klepsydrę i uniemożliwiał wykonywanie innych funkcji programu. Jak to zrobić?

JmP

Aby uniemożliwić korzystanie z formy daj tak: Form.Enabled:=False;
natomiast kursor to Form.Cursor:=crHourGlass;

a jeśli masz kilka form i checsz aby na wszystkich pojawiała sie klepsydra to Screen.Cursor