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圖像沒有動畫效果