自己写的一个显示GIF,jpg,png图片 切换的方法

//定义一个显示图片的过程(这里是一个类的过程)参考：http://www.cnblogs.com/del88/archive/2012/02/03/2337566.html
procedure ImgShow(top_img_type: string; ImageXuhao: TImage);
var
  pic_path: string;
begin
   if top_img_type = 'loading' then
   begin
     pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif';
     ImageXuhao.Picture.LoadFromFile(pic_path);
     // AnimationSpeed 设定动画速度,值越大,速度越快
     TGIFImage(ImageXuhao.Picture.Graphic).AnimationSpeed := 300;
     TGIFImage(ImageXuhao.Picture.Graphic).Animate := True;
     ImageXuhao.Refresh;{这句必须加,否则会显示延迟}
   end else if top_img_type = 'true' then begin
     pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\true.gif';
     ImageXuhao.Picture.LoadFromFile(pic_path);
     ImageXuhao.Refresh;{这句必须加,否则会显示延迟}
   end else begin
     pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\false.gif';
     ImageXuhao.Picture.LoadFromFile(pic_path);
     ImageXuhao.Refresh;{这句必须加,否则会显示延迟}
   end;
end;

调用：ImgShow('false',ImageXuhao1);