怎样改变鼠标状态？

当执行一段处理时间比较久的程序，想让鼠标显示成系统繁忙的状态，处理完毕时恢复正常。我常用的方法是：开始执行时screen.Cursor := crHourGlass,处理完时
screen.Cursor := crDefault.由于有时候忘了这样做，程序执行时，用户不知到底执行了没有。
请问有没有方法让程序自动决定鼠标状态？