程序运行长期等待时显示等待动画

应用win32中的Animate1控件。

设置应用动画的路径：Animate1->FileName =ExtractFileDir(Application->ExeName)+ "\\FINDCOMP.AVI";
Animate1->Active=true;
Animate1->Visible = true;