TThread.CreateAnonymousThread(

    procedure

    var

      Http: TIdHttp;

      MemoryStream TMemoryStream;

    begin

      MemoryStream := TMemoryStream.Create;

      Http := TIdHttp.Create(nil);

      try

        try

          Http.Get(TIdURI.URLEncode(Value), MemoryStream);

          if MemoryStream.Size >  then

          begin

          TThread.Synchronize(nil,

          procedure

          begin

          MemoryStream.Position := ;

          显示图片

          end);

          end;

        except

        end;

      finally

        Http.DisposeOf;

        Http := nil;

        MemoryStream.DisposeOf;

        MemoryStream := nil;

      end;

    end).Start;