diff --git a/components/fpspreadsheet/uvirtuallayer_ole.pas b/components/fpspreadsheet/uvirtuallayer_ole.pas
index 98140e722..57fe7a96a 100644
--- a/components/fpspreadsheet/uvirtuallayer_ole.pas
+++ b/components/fpspreadsheet/uvirtuallayer_ole.pas
@@ -76,6 +76,9 @@ type
 
   TVirtualLayer_OLE=class(TVirtualLayer)
   private
+    OpenedStreams: array of TWCBFOpenStream;
+    FFATIndirect: TFATIndirect;
+
     procedure UseParameter(const Parameter);
     procedure SwapEndian_Record(var D: TWCBFStructuredStorageHeader);
     procedure SwapEndian_Record(var D: TWCBFStructuredStorageDirectoryEntry);
@@ -87,9 +90,9 @@ type
     procedure DeleteSIDData(const ASID: SID);
     function CreateNewSID(const AType: etagSTGTY): SID;
     procedure InsertInDirectoryTree(const ASID,AMasterSID: SID);
-    OpenedStreams: array of TWCBFOpenStream;
-    FFATIndirect: TFATIndirect;
   protected
+    FDirectory: array of TWCBFStructuredStorageDirectoryEntry;
+
     function intfGetFreeSpace(const APath: UTF8String): int64; override;
     function intfIsWritableMedia(): Boolean; override;
     function intfFindList(const APath: UTF8String; const AMask: UTF8String): TVirtualLayer_FolderList; override;
@@ -107,8 +110,6 @@ type
     function intfRemoveFolder(const AFolder: UTF8String): Boolean; override;
     //..Not implemented
 
-    FDirectory: array of TWCBFStructuredStorageDirectoryEntry;
-
     procedure AfterConstruction; override;
   public
     procedure Format();