来这里下载GifImage控件:http://202.96.70.228/cakk/delphi/gifimage.exe
uses gifimage;
var
FBitmap :TBitmap;
FGif :TGifImage;
begin
FGif :=TGifImage.Create;
FGif.LoadFromFile('.......');
FBitmap :=TBitmap.Create;
//FBitmap.PixelFormat :=pf24bit;
FBitmap.Assign(FGif);
FGif.Free;
Image.Picture.Bitmap.Assign(FBitmap);
FBitmap.Free;
end;