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:   end;
  
  begin
    raise GIFException.Create(msg)at ReturnAddr;
  end;
  
  // Round to arbitrary number of bits
  
negative.code:   finally
      FBitmap.Palette := SavePalette;
    end;
  {$ELSE PIXELFORMAT_TOO_SLOW}
    FDIBInfo := nil;
    FDIBBits := nil;
  {$ENDIF PIXELFORMAT_TOO_SLOW}
  end;
  
  destructor TDIBWriter.Destroy;
  