From cb7a21cf9d152cdf33778f36614d5b1cb41dbfa9 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 22 Jun 2014 09:59:40 +0000
Subject: [PATCH] fpspreadsheet: Fix non-Windows compilation failure due to
 missing variable declaration in fpolestorage

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

diff --git a/components/fpspreadsheet/fpolestorage.pas b/components/fpspreadsheet/fpolestorage.pas
index 21bd1caad..3ff51a186 100755
--- a/components/fpspreadsheet/fpolestorage.pas
+++ b/components/fpspreadsheet/fpolestorage.pas
@@ -695,6 +695,9 @@ procedure TOLEStorage.WriteOLEFile(AFileName: string;
 var
   cbWritten: Cardinal;
   lMode: Word;
+ {$IFNDEF FPOLESTORAGE_USE_COM}
+  AFileStream: TStream;
+ {$ENDIF}
 begin
   // The behavior of LCL classes is failling to write to existing file,
   // But here we make this settable