记载下，花了不少时间。
1、 项目导入文件GIFImage.pas
来源：http://melander.dk/delphi/gifimage/
2、 项目导入文件RVGifAnimate.pas
来源：D:\RICHVIEW\RICHVIEW
3、 应用到的SCALERICHVIEW所在的窗体中（如以下两条语句没有添加，GIF将不能进行动画）：：
#include "GIFImage.hpp"
#pragma link "RVGifAnimate"
4、 窗体构造函数中（如以下两条语句没有添加，GIF保存将丢失）：
RegisterClass(__classid(TGIFImage));
RV_RegisterHTMLGraphicFormat(__classid(TGIFImage));