问一个简单的问题

问一个简单的问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061225100617124.html

初学delphi
需要时间不明确的情况下(循环体次数不定)，怎么用一个动画来让用户知道程序还在执行
具体用什么控件，代码如何写呢 谢谢

sf

你可以在循环开始之前将光标设置成漏斗状，然后在结束时恢复原来的箭头状！

代码怎么写呢？？

显示一个非模态对话框，使用TAnimate控件，设置其CommonAVI或者FileName属性可播放动画。

我想问一下鼠标那个怎么写

Cursor := crHourGlass;

我试了下 没有变啊

谁说不能变？

procedure TForm1.Button1Click(Sender: TObject);
begin
if Cursor = crHourGlass then
Cursor := crDefault
else
Cursor := crHourGlass;
end;

变了 循环体次数太少 没变来的及就结束了