delphi 播放gif 动画

uses?GIFImg;
?2?procedure?TForm1.FormCreate(Sender:?TObject);
?3?begin
?4???//?先在窗体上放一个?TImage?组件：Image1；
?5???Image1.Picture.LoadFromFile('C:\Example.gif');
?6???//?AnimationSpeed?设定动画速度，值越大，速度越快；
?7???TGIFImage(Image1.Picture.Graphic).AnimationSpeed?:=?500;
?8???TGIFImage(Image1.Picture.Graphic).Animate?:=?True;
?9?end;?