按下面的步骤.如果你没有按装ShockwaveFlash1, 那么就要做1.-->点击Component-->选择import activxe control-->Shockwave Flash1 [verison 1.0]-->install 完成安装2.装完后想调用动画,就
 with ShockwaveFlash1 do    //shockwave控件名
        begin
            Movie:=ExtractFilePath(Application.ExeName)+'image\Movie122.swf';
            Loop:=True;
            ScaleMode:=0;
            shockwaveflash1.BackgroundColor:=RGB(0,0,0);
            WMode:='Transparent';
            Play;
        end;