anchor.diff:  
   //----------------------------------------------------------------------------------------------------------------------
   
  +var ReverseTable: array [0..255] of Byte;
  +
  +
   const
  -  // 256 bytes to make bit reversing easy,
  -  // this is actually not much more than writing bit manipulation code, but much faster
  -  ReverseTable: array[0..255] of Byte = (
  -    $00, $80, $40, $C0, $20, $A0, $60, $E0,
  -    $10, $90, $50, $D0, $30, $B0, $70, $F0,
  -    $08, $88, $48, $C8, $28, $A8, $68, $E8,
  -    $18, $98, $58, $D8, $38, $B8, $78, $F8,
  -    $04, $84, $44, $C4, $24, $A4, $64, $E4,
  -    $14, $94, $54, $D4, $34, $B4, $74, $F4,
  -    $0C, $8C, $4C, $CC, $2C, $AC, $6C, $EC,
  -    $1C, $9C, $5C, $DC, $3C, $BC, $7C, $FC,
  -    $02, $82, $42, $C2, $22, $A2, $62, $E2,
  -    $12, $92, $52, $D2, $32, $B2, $72, $F2,
  -    $0A, $8A, $4A, $CA, $2A, $AA, $6A, $EA,
  -    $1A, $9A, $5A, $DA, $3A, $BA, $7A, $FA,
  -    $06, $86, $46, $C6, $26, $A6, $66, $E6,
  -    $16, $96, $56, $D6, $36, $B6, $76, $F6,
  -    $0E, $8E, $4E, $CE, $2E, $AE, $6E, $EE,
  -    $1E, $9E, $5E, $DE, $3E, $BE, $7E, $FE,
  -    $01, $81, $41, $C1, $21, $A1, $61, $E1,
  -    $11, $91, $51, $D1, $31, $B1, $71, $F1,
  -    $09, $89, $49, $C9, $29, $A9, $69, $E9,
  -    $19, $99, $59, $D9, $39, $B9, $79, $F9,
  -    $05, $85, $45, $C5, $25, $A5, $65, $E5,
  -    $15, $95, $55, $D5, $35, $B5, $75, $F5,
  -    $0D, $8D, $4D, $CD, $2D, $AD, $6D, $ED,
  -    $1D, $9D, $5D, $DD, $3D, $BD, $7D, $FD,
  -    $03, $83, $43, $C3, $23, $A3, $63, $E3,
  -    $13, $93, $53, $D3, $33, $B3, $73, $F3,
  -    $0B, $8B, $4B, $CB, $2B, $AB, $6B, $EB,
  -    $1B, $9B, $5B, $DB, $3B, $BB, $7B, $FB,
  -    $07, $87, $47, $C7, $27, $A7, $67, $E7,
  -    $17, $97, $57, $D7, $37, $B7, $77, $F7,
  -    $0F, $8F, $4F, $CF, $2F, $AF, $6F, $EF,
  -    $1F, $9F, $5F, $DF, $3F, $BF, $7F, $FF
  -  );
  -
     G3_EOL = -1;
     G3_INVALID = -2;
  +
   
   //----------------------------------------------------------------------------------------------------------------------
   procedure TCCITTDecoder.ReverseBits(Source: Pointer; PackedSize: Integer);
  
positive.code: {$ENDIF}
  
  
  end.
  
  
negative.code: 
  end;
  
  //------------------TCCITTFax4Decoder ------------------------------------------------------------------------------------
  procedure TCCITTFax4Decoder.Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer);
  begin
  
  end;
  
  procedure TCCITTFax4Decoder.Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal);
  begin
  
  end;
  
  
  //----------------- TCCITTMHDecoder ------------------------------------------------------------------------------------
  
  procedure TCCITTMHDecoder.Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer);
  