procedure TIEBitmapEx.LoadFromStream_JPEG_Thumb(const aStream: TStream);
var io: TImageEnIO;
begin
  FreeImage;
  if aStream=nil then Exit;
  if aStream.Size<1 then Exit;
  aStream.Position := 0;

  io := TImageEnIO.Create(nil);
  try
    io.AttachedIEBitmap := Self;
    io.LoadFromStreamJPEG(aStream);
  finally
    io.Free;
  end;
end;

{$define IEUSEDLLJPEGLIB}
{$define IEUSEDLLPNGLIB}
{$define IEUSEDLLJPEG2000LIB}
{$define IEUSEDLLRAWLIB}