* as in #15337 reported, in newer Delphi versions EOleRegistrationError inherits from EOleSysError

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14440 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 3 deletions

diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index e2d812cb34..bd9c732b12 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/packages/winunits-base/src/comobj.pp
@@ -47,11 +47,11 @@ unit comobj;
         property Source: string read FSource write FSource;
       end;
 
-      EOleRegistrationError = class(EOleError);
+      EOleRegistrationError = class(EOleSysError);
 
       TOleStream = Class(TProxyStream)
-                  procedure Check(err:integer);override;
-		end;
+        procedure Check(err:integer);override;
+      end;
 
       TComServerObject = class(TObject)
       protected