修改过的适合Delphi7的GifImage程序(经多线程测试)

原GifImage在多线程运行时，经常产生异常。因此特别做了特殊的判断和处理。在调用时，需要特别注意。var gif: TGifImage; image: TImage; aFileName: String; // 图片文件名称begin ....gif := TGIFImage.Create;try gif.LoadFromFile(aFileName); image.Picture.Assign(gif.Bitmap); gif.AnimationSpeed := 200; gif.Animate := true; // 设置为动画，这样才