anchor.diff:        Row := biHeight - Row - 1;
       Result := PByte(Cardinal(FDIBBits) + Cardinal(Row) * AlignBit(biWidth, biBitCount, 32));
     end;
  -{$ELSE}
  +{$ELSE PIXELFORMAT_TOO_SLOW}
   {$ifdef LCL}
     Result := nil;  // ToDo: Find replacement of FBitmap.ScanLine for LCL
  -{$else}
  +{$else LCL}
     Result := FBitmap.ScanLine[Row];
  -{$endif}
  -{$ENDIF}
  +{$endif LCL}
  +{$ENDIF PIXELFORMAT_TOO_SLOW}
   end;
   
   procedure TDIBWriter.CreateDIB;
  
positive.code:           POP   EBX
        @@END:
      end;
      {$ELSE}
      {From Delphi XE2
      Vcl.Graphics unit
      Copyright(c) 1995-2011 Embarcadero Technologies, Inc.
      }
    var
    C: PDWORD;
    Color: DWORD;
    I: Integer;
    begin
      C := @Colors;
      I := 0;
  
negative.code:   finally
      FBitmap.Palette := SavePalette;
    end;
  {$ELSE PIXELFORMAT_TOO_SLOW}
    FDIBInfo := nil;
    FDIBBits := nil;
  {$ENDIF PIXELFORMAT_TOO_SLOW}
  end;
  
  destructor TDIBWriter.Destroy;
  