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图像没有动画效果
Delphi使用Image显示gif动画,布布扣,bubuko.com
Delphi使用Image显示gif动画
原文：http://blog.csdn.net/gjtao1130/article/details/25899711
