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