Image控件播放 GIF文件

uses Vcl.Imaging.GIFImg;
procedure TForm1.Button2Click(Sender: TObject);
begin
    Image1.Picture.LoadFromFile('1.gif');
    Image1.Transparent:=True;
    TGIFImage(Image1.Picture.Graphic).AnimationSpeed :=100;     //原速度播放
end;

来自为知笔记(Wiz)