var   
   html:WideString;   
   Stream:TStream;   
   gif:TGIFimage;   
begin   
      html:=IdHTTP1.Get('http://site.ru/index/3');   
      Delete(html,1,pos('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="',html)+length('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="'));   
      Delete(html,pos('" onclick',html),length(html));   
      Stream:=TStringStream.Create(IdHTTP1.Get('http://site.ru/'+html));   
      Gif:=TGIFImage.Create;   
      Gif.LoadFromStream(Stream);   
      Image1.Picture.Assign(Gif.Bitmap);   
      Gif.Free;   
      Stream.Free;   
       end;