anchor.diff:    end;
   
     ReAllocMem(NewBuffer,NewCount);
  -  FreeMem(Buffer);
  -  Buffer:=NewBuffer;
  -  Count:=NewCount;
  +//  FreeMem(Buffer);
  +//  Buffer:=NewBuffer;
  +//  Count:=NewCount;
   end;
   
   
  
positive.code:     FileHandle.Read(Block._Data, Block._Size);
  
      inc( BytesRead, Block._Size  );
  
      Blocks.Add( Block );
  
    end;
    ReadBitmapData( Blocks, sizeof( _Header ) + GetPaletteSize + _BitsSize );
  
    for BlockIndex := 0 to Blocks.Count - 1 do
  
negative.code:   ClearCode = 256; // clear table, start with 9bit codes
    EoiCode = 257; // end of input
  var
  //  NewBuffer: PByte;
  //  NewCount: PtrInt;
    NewCapacity: PtrInt;
    SrcPos: PtrInt;
    SrcPosBit: integer;
  