Delphi使用Image显示gif动画

delphi中，使用TGifimage这个类可以使Image显示Gif动画

// Image1:TImage;
// Image1.Picture.LoadFromFile(OpenDialog1.FileName);

TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 100;
TGIFImage(Image1.Picture.Graphic).Animate := True;
// (AnimationSpeed = 0 to 1000)
// AnimationSpeed 设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%；
// 如果设置AnimationSpeed = 0 则gif图像没有动画效果