diff --git a/components/fpspreadsheet/laz_fpspreadsheet.pas b/components/fpspreadsheet/laz_fpspreadsheet.pas
index ad5cab571..20fbdbd5d 100644
--- a/components/fpspreadsheet/laz_fpspreadsheet.pas
+++ b/components/fpspreadsheet/laz_fpspreadsheet.pas
@@ -4,7 +4,6 @@
 
 unit laz_fpspreadsheet;
 
-{$warn 5023 off : no warning about unused units}
 interface
 
 uses
diff --git a/components/fpspreadsheet/xlsbiff2.pas b/components/fpspreadsheet/xlsbiff2.pas
index 8e16d1adb..611a842aa 100755
--- a/components/fpspreadsheet/xlsbiff2.pas
+++ b/components/fpspreadsheet/xlsbiff2.pas
@@ -119,7 +119,7 @@ type
     procedure WriteRow(AStream: TStream; ASheet: TsWorksheet;
       ARowIndex, AFirstColIndex, ALastColIndex: Cardinal; ARow: PRow); override;
     procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal;
-      const AFormula: TsRPNFormula; ACell: PCell); override;
+      AFormula: TsRPNFormula; ACell: PCell); override;
     function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; override;
     procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); override;
     procedure WriteStringRecord(AStream: TStream; AString: String); override;
@@ -1635,7 +1635,7 @@ end;
   string to an RPN array by the calling method.
 -------------------------------------------------------------------------------}
 procedure TsSpreadBIFF2Writer.WriteRPNFormula(AStream: TStream;
-  const ARow, ACol: Cardinal; const AFormula: TsRPNFormula; ACell: PCell);
+  const ARow, ACol: Cardinal; AFormula: TsRPNFormula; ACell: PCell);
 var
   RPNLength: Word;
   RecordSizePos, FinalPos: Cardinal;
diff --git a/components/fpspreadsheet/xlscommon.pas b/components/fpspreadsheet/xlscommon.pas
index 0add2e920..d33c60c97 100644
--- a/components/fpspreadsheet/xlscommon.pas
+++ b/components/fpspreadsheet/xlscommon.pas
@@ -582,11 +582,11 @@ type
     function WriteRPNCellRangeAddress(AStream: TStream; ARow1, ACol1, ARow2, ACol2: Cardinal;
       AFlags: TsRelFlags): Word; virtual;
     procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal;
-      const AFormula: TsRPNFormula; ACell: PCell); virtual;
+      AFormula: TsRPNFormula; ACell: PCell); virtual;
     function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; virtual;
     procedure WriteRPNResult(AStream: TStream; ACell: PCell);
     procedure WriteRPNTokenArray(AStream: TStream; ACell: PCell;
-      const AFormula: TsRPNFormula; UseRelAddr, IsSupported: Boolean; var RPNLength: Word);
+      AFormula: TsRPNFormula; UseRelAddr, IsSupported: Boolean; var RPNLength: Word);
     procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); virtual;
 
     // Writes out a SELECTION record
@@ -3911,7 +3911,7 @@ end;
   Valid for BIFF5-BIFF8.
 -------------------------------------------------------------------------------}
 procedure TsSpreadBIFFWriter.WriteRPNFormula(AStream: TStream;
-  const ARow, ACol: Cardinal; const AFormula: TsRPNFormula; ACell: PCell);
+  const ARow, ACol: Cardinal; AFormula: TsRPNFormula; ACell: PCell);
 var
   RPNLength: Word = 0;
   RecordSizePos, StartPos, FinalPos: Int64;
@@ -4059,7 +4059,7 @@ end;
   Writes the token array of the given RPN formula and returns its size
 -------------------------------------------------------------------------------}
 procedure TsSpreadBIFFWriter.WriteRPNTokenArray(AStream: TStream;
-  ACell: PCell; const AFormula: TsRPNFormula; UseRelAddr, IsSupported: boolean;
+  ACell: PCell; AFormula: TsRPNFormula; UseRelAddr, IsSupported: boolean;
   var RPNLength: Word);
 var
   i: Integer;