加上头文件#include
<Vcl.Imaging.GIFImg.hpp>
#include <Vcl.Imaging.pngimage.hpp>
Image1->Picture->LoadFromFile("001.gif");
((TGIFImage*) Image1->Picture->Graphic)->Animate = true;//开始播放
((TGIFImage*) Image1->Picture->Graphic)->Animate = false;//停止播放
Image2->Picture->LoadFromFile("001.png");