Como alterar o cursor do mouse de seta para ampulheta
Para alterar o seu cursor de seta para ampulheta, basta inserir antes da rotina a seguinte linha:
Screen.Cursor := crHourglass;
Após execução da rotina de espera volte o cursor novamente para seta, utilizando o seguinte comando:
Screen.Cursor := crDefault;