anchor.diff:      fBytesPerSample: Integer; //1 for 8-bit precision, 2 for 12-bit
       fColorComponents: array of TJpegComponentDescriptor;
       fInterleavedBlockSize: Integer; //size in bytes of one interleaved block in output
  +    fBlocksPerRow: Integer; //number of input interleaved blocks (4 blocks Y + 1 Cb + 1 Cr counts as one) per row
       fRowSize: Integer;  //size in bytes of one row
   
       PRED: array [0..3] of Integer;  //previous DC coefficient for each component.
  
positive.code:         if PAnsiChar(fDest) + fUnpackedSize >= PAnsiChar(Run) then
            break;  //decoded all the blocks already
        end;
      end;
    end;
  end;
  
  procedure TJPEGDecoder.DecodeDNL;
  
negative.code: end;
  
  destructor TJPEGDecoder.Destroy;
  //var i: Integer;
  begin
  //  for i := 0 to 3 do
  //    if Assigned(FQuantTables[i]) then FreeMem(FQuantTables[i]);
    inherited Destroy;
  end;
  
  