anchor.diff:        if (SrcColors < DstColors) then
           FillChar(pointer(LongInt(@FDIBInfo^.bmiColors) + SizeOf(TRGBQuad) * SrcColors)^,
             DstColors - SrcColors, 0);
  -     {.$ENDIF}
       end;
   
     except
       FreeDIB;
       raise;
     end;
  -{$ENDIF}
  +{$ENDIF PIXELFORMAT_TOO_SLOW}
   end;
   
   procedure TDIBWriter.FreeDIB;
  
positive.code:       Inc(I);
        Inc(C);
      end;
      {$ENDIF}
    end;
  {$ENDIF}
  begin
  {$IFDEF PIXELFORMAT_TOO_SLOW}
    if (FBitmap.Handle = 0) then
  
negative.code:       Row := biHeight - Row - 1;
      Result := PByte(Cardinal(FDIBBits) + Cardinal(Row) * AlignBit(biWidth, biBitCount, 32));
    end;
  {$ELSE PIXELFORMAT_TOO_SLOW}
  {$ifdef LCL}
    Result := nil;  // ToDo: Find replacement of FBitmap.ScanLine for LCL
  {$else LCL}
    Result := FBitmap.ScanLine[Row];
  {$endif LCL}
  {$ENDIF PIXELFORMAT_TOO_SLOW}
  end;
  
  procedure TDIBWriter.CreateDIB;
  