TGifImage类可以轻松的操作gif文件，不仅能动态显示，也可以分成不同的帧，设置透明度，设置播放速度等等。

uses Gifimage;
var  FGif :TGIFImage;
try
      FResStream := TResourceStream.Create(HInstance, 'LoadingGif', 'GIFTYPE');
      if not assigned(FGif) then
            FGif := TGifimage.Create;
      FGif.LoadFromStream(FResStream);
//上面是放在资源文件中的加载方法，如果直接加载文件，请这样FGif.LoadFromFile('d:\abc.gif');
      FGif.Paint(imgGif.Canvas,imgGif.ClientRect,[goTransparent,goDither,goAsync,goLoop,goAnimate,goDirectDraw]);

    finally
      FResStream.Free;
      if assigned(FGif) then
       FGif.PaintStop;
      FGif.Destroy;
    end

下载：gifimaged6