如何动态改变鼠标形状

我在用delphi设计程序时，考虑到有些地方如正在运行时间比较长的过程或动作时，为了不让用户以为是死机了，需要改变鼠标的形状来表明过程正在运行中，等运行结束的时候让鼠标变为原来的标准形状。不知道该怎么实现，请各位大虾帮帮忙，小弟急啊！