diff --git a/components/fpspreadsheet/xlsbiff8.pas b/components/fpspreadsheet/xlsbiff8.pas
index e86ed98e9..f7fcbb606 100755
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@@ -1679,7 +1679,11 @@ begin
 end;
 
 destructor TsSpreadBIFF8Reader.Destroy;
+var
+  j: integer;
 begin
+  for j := FXFList.Count-1 downto 0 do TObject(FXFList[j]).Free;
+  for j := FFormatList.Count-1 downto 0 do TObject(FFormatList[j]).Free;
   FXFList.Free;
   FFormatList.Free;
   if Assigned(FSharedStringTable) then FSharedStringTable.Free;