diff --git a/components/fpspreadsheet/fpolebasic.pas b/components/fpspreadsheet/fpolebasic.pas
index ce080e99c..d431137af 100644
--- a/components/fpspreadsheet/fpolebasic.pas
+++ b/components/fpspreadsheet/fpolebasic.pas
@@ -7,6 +7,10 @@ Note: Compatibility with previous version (fpolestorage.pas).
 }
 unit fpolebasic;
 
+{$ifdef fpc}
+  {$mode delphi}
+{$endif}
+
 interface
 
 uses
@@ -28,8 +32,6 @@ type
   TOLEStorage = class
   private
   public
-    constructor Create;
-    destructor Destroy; override;
     procedure WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AOverwriteExisting: Boolean = False; const AStreamName: UTF8String='Book');
     procedure ReadOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AStreamName: UTF8String='Book');
     procedure FreeOLEDocumentData(AOLEDocument: TOLEDocument);
@@ -37,16 +39,6 @@ type
 
 implementation
 
-constructor TOLEStorage.Create;
-begin
-  inherited Create;
-end;
-
-destructor TOLEStorage.Destroy;
-begin
-  inherited Destroy;
-end;
-
 {@@
   Writes the OLE document specified in AOLEDocument
   to the file with name AFileName. The routine will fail