diff --git a/components/fpspreadsheet/source/common/fpspreadsheet.pas b/components/fpspreadsheet/source/common/fpspreadsheet.pas
index c9b79d483..a21f3fe85 100644
--- a/components/fpspreadsheet/source/common/fpspreadsheet.pas
+++ b/components/fpspreadsheet/source/common/fpspreadsheet.pas
@@ -9657,11 +9657,6 @@ end;
 
 function TsWorkbook.FixFormula(AFormula: PsFormula;
   ACorrection: TsFormulaCorrection; AData: Pointer; AParam: PtrInt): Boolean;
-var
-  rpn: TsRPNFormula;
-  i: Integer;
-  elem: TsFormulaElement;
-  sheet: TsWorksheet;
 begin
   Result := false;
   case ACorrection of