From e061c01c665e038b6ceedc6111ac59d154d6f8ba Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 30 Mar 2012 19:25:26 +0000
Subject: [PATCH] Fixed memory leak on destroy.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2371 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsbiff8.pas | 4 ++++
 1 file changed, 4 insertions(+)

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;