1、打开Delphi7集成开发环境，在View--Component List找到TAnimate控件放到默认工程的Form1窗体，并放一个Button1按钮。
2、双击Button1按钮进入事件方法，写如下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
i,sum:Integer;
begin
sum:=0;
animate1.Active:=True;
for i:=0 to 10000 do
begin
Sleep(100);
sum:=sum+i;
if sum>1000 then
begin
Animate1.Active:=False;
Break;
end;
end;
end;
3、设置Animate1的commonAVI属性为 aviEmptyRecycle
4、F9运行程序，点击button按钮并没看到动态效果，这是因为我们在win7以上电脑这样操作是不能实现的，但是可以设置自己的*.avi文件来播放。
5、设置Animate1的commonAVI属性为 aviNone，设置fileName属性为：C:\Program Files (x86)\Borland\Delphi7\Demos\CoolStuf\cool.avi 我们本地计算机的一个avi文件
6、F9运行程序，点击button按钮看到动态效果
