anchor.diff:  
   type
   
  +  { TmSpreadsheetFont }
  +
  +  TmSpreadsheetFont = class
  +  strict private
  +    FItalic : boolean;
  +    FBold : boolean;
  +    FFontName : String;
  +    FFontSize : integer;
  +  public
  +    constructor Create;
  +    destructor Destroy; override;
  +
  +    property Italic : boolean read FItalic write FItalic;
  +    property Bold : boolean read FBold write FBold;
  +    property FontName : String read FFontName write FFontName;
  +    property FontSize : integer read FFontSize write FFontSize;
  +  end;
  +
     { TmSpreadsheetHelper }
   
     TmSpreadsheetHelper = class
     strict private
       FSheet: TsWorksheet;
  +    FDefaultFont : TmSpreadsheetFont;
  +    FDefaultRowHeight : integer;
  +    procedure WriteDefaultFont(const aRow, aCol : integer);
     public
       constructor Create; overload;
       constructor Create (aSheet : TsWorksheet); overload;
  +    destructor Destroy; override;
   
       procedure WriteFloat(const aRow, aCol : integer; const aValue : TNullableDouble); overload;
  -    procedure WriteFloat(const aRow, aCol : integer; const aValue : double; const aFractionalPartDigits : integer); overload;
  +    procedure WriteFloat(const aRow, aCol : integer; const aValue : double; const aFractionalPartDigits: integer); overload;
  +    procedure WriteFloat(const aRow, aCol : integer; const aValue : double); overload;
  +    procedure WriteFloat(const aRow, aCol : integer; const aValue : double; const aFormatString: String); overload;
  +
       procedure WriteDate(const aRow, aCol : integer; const aValue: TNullableDateTime); overload;
       procedure WriteDate(const aRow, aCol : integer; const aValue : TDateTime); overload;
       procedure WriteDateTime(const aRow, aCol : integer; const aValue: TNullableDateTime); overload;
       procedure WriteDateTime(const aRow, aCol : integer; const aValue : TDateTime); overload;
       procedure WriteInteger(const aRow, aCol : integer; const aValue : TNullableInteger); overload;
       procedure WriteInteger(const aRow, aCol : integer; const aValue : integer); overload;
  -    procedure WriteInt64(const aRow, aCol : integer; const aValue : Int64); overload;
  +    procedure WriteInt64(const aRow, aCol : integer; const aValue : Int64);
  +    procedure WriteBoolean(const aRow, aCol : integer; const aValue : boolean); overload;
  +    procedure WriteBoolean(const aRow, aCol : integer; const aValue : TNullableBoolean); overload;
       procedure WriteText(const aRow, aCol : integer; const aValue : TNullableString); overload;
  +    procedure WriteText(const aRow, aCol : integer; const aValue : TNullableString; const aItalic, aBold : boolean; const aBackgroundColor : DWord = scNotDefined); overload;
       procedure WriteText(const aRow, aCol : integer; const aValue : String); overload;
  +    procedure WriteText(const aRow, aCol : integer; const aValue : String; const aItalic, aBold : boolean; const aBackgroundColor : DWord = scNotDefined); overload;
  +
  +    procedure WriteSouthBorder(const aRow, aCol: integer);
  +    procedure WriteBackgroundColor(const aRow, aCol : integer; const aColor : DWord); // $00BBGGRR
  +    procedure WriteFontStyle(const aRow, aCol : integer; const aItalic, aBold : boolean);
   
       procedure ReadInteger(const aRow, aCol : integer; aValue : TNullableInteger);
       procedure ReadFloat(const aRow, aCol : integer; aValue : TNullableDouble);
  
positive.code:   aValue.Assign(aSheet.ReadAsText(aRow, aCol));
  end;
  
  { TmSpreadsheetHelper }
  
  constructor TmSpreadsheetHelper.Create;
  begin
    Self.Create(nil);
  
negative.code: procedure spWriteFloat(aSheet: TsWorksheet; const aRow, aCol: integer; const aValue: double; const aFractionalPartDigits: integer);
  begin
    aSheet.WriteNumber(aRow, aCol, aValue, nfFixed, aFractionalPartDigits);
  end;
  
  procedure spWriteFloat(aSheet: TsWorksheet; const aRow, aCol: integer; const aValue: double; const aFormatString : String);
  begin
    if aFormatString <> '' then
      aSheet.WriteNumber(aRow, aCol, aValue, nfGeneral, aFormatString)
    else
      aSheet.WriteNumber(aRow, aCol, aValue, nfGeneral);
  end;
  
  procedure spWriteDate(aSheet: TsWorksheet; const aRow, aCol: integer; const aValue: TDateTime);
  