diff --git a/components/fpspreadsheet/source/common/xlsxooxml.pas b/components/fpspreadsheet/source/common/xlsxooxml.pas
index 465bfdb97..13e05e722 100644
--- a/components/fpspreadsheet/source/common/xlsxooxml.pas
+++ b/components/fpspreadsheet/source/common/xlsxooxml.pas
@@ -2104,7 +2104,7 @@ var
   Doc : TXMLDocument;
   RelsNode: TDOMNode;
   SheetList: TStringList;
-  i: Integer;
+  i, j: Integer;
   fn: String;
   fn_comments: String;
   XMLStream: TStream;
@@ -2204,6 +2204,11 @@ begin
         XMLStream.Free;
       end;
 
+      // clear sharedformulabase list
+      for j:=FSharedFormulaBaseList.Count-1 downto 0 do
+        TObject(FSharedFormulaBaseList[j]).Free;
+      FSharedFormulaBaseList.Clear;
+
       // Sheet data, formats, etc.
       ReadSheetViews(Doc.DocumentElement.FindNode('sheetViews'), FWorksheet);
       ReadSheetFormatPr(Doc.DocumentElement.FindNode('sheetFormatPr'), FWorksheet);