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