// Convert TAGS to LittleEndian (if needed)
    if not LittleEndian then
      for i := 0 to NumTags - 1 do
      begin
        if assigned(IFD) then
        begin
          // classic TIFF
          IFD[i].IdTag    := IESwapWord(IFD[i].IdTag);
          IFD[i].DataType := IESwapWord(IFD[i].DataType);
          IFD[i].DataNum  := IESwapDWordI( IFD[i].DataNum );
          if ( IFD[i].DataNum < 0 ) or
             ( IFD[i].DataNum > 4 ) or              // 11.4.0: Integer overflow catch
             ( IFD[i].DataNum * IETIFFCalcTagSize(IFD[i].DataType) > 4 ) then
            IFD[i].DataPos := IESwapDWord(IFD[i].DataPos);  // this is an offset
        End

ImageEnView.IO.Params.TIFF_GetTile := 1; // get second tile (frame)
ImageEnView.IO.LoadFromFile('S1810_Frame6_BW.tif');

    // read sub tags (like StripOffsets and TileOffsets)
    lp := Stream.Position;
    for i := 0 to ifd.Count-1 do
    begin
      tag := ifd[i];
      CheckPairTag(xword(tag^.IdTag), tgpos, tglen);
      if tgpos > -1 then
//      if (tgpos > -1) and (xdword(tag^.DataNum) > 1) then
      begin
        if xdword(tag^.DataNum) > 1 then
          newlist := AllocMem(xdword(tag^.DataNum) * sizeof(integer))
        else
          newlist := @tag^.DataPos;
        for j := 0 to xdword(tag^.DataNum)-1 do
        begin
          l := GetIntegerByCode(ifd, tglen, j);  // length in bytes
          buf := AllocMem(l);
          Stream.Position := GetIntegerByCode(ifd, tgpos, j);  // position
          Stream.Read(pbyte(buf)^, l);
          newlist[j] := xdword( fBuffers.Add(buf) );
        end;
        if IETIFFCalcTagSize(xword(tag^.DataType)) * xdword(tag^.DataNum) > 4 then
          freemem(pointer( fBuffers[xdword(tag^.DataPos)] ));
        tag^.DataType := xword(4); // long type
        if xdword(tag^.DataNum) > 1 then
          tag^.DataPos := xdword( fBuffers.Add(newlist) ); // replace with the new list
      end;
    end;