anchor.diff:    if _Header.cBitCount <= 8 then
     begin
       _pPalette := GetMem( GetPaletteSize );
  -    bytes := FileHandle.Read(_pPalette, GetPaletteSize);
  +    bytes := FileHandle.Read(_pPalette^, GetPaletteSize);
       if bytes <> GetPaletteSize then
         raise EHelpBitmapException.Create( 'Failed to read Palette.' );
     end;
  
positive.code:     case Block._CompressionType of
        0,1: // uncompressed (I'm not sure about 1)
        begin
          MemCopy( Block._Data, BitmapOutputPointer, Block._Size );
          BytesWrittenFromBlock := Block._Size;
          inc( BytesWritten, BytesWrittenFromBlock );
        end;
  
negative.code:   BitmapData: PBYTE;
    ptr: PByte;
  begin
    BitmapOutputPointer := nil;
    BitmapData := nil;
    ptr := nil;
  
    // Allocate memory to store the bitmap
    Bitmapdata := GetMem( TotalSize );
  
    // Copy header to bitmap
    MemCopy( _Header, BitmapData^, sizeof( _Header ) );
  
    // Copy palette into bitmap
    ptr := BitmapData + sizeof( _Header );
    MemCopy( _pPalette^, ptr^, GetPaletteSize );
  
    BytesWritten := 0;
  
  