diff options
Diffstat (limited to 'packages/winunits-base/src/comobj.pp')
| -rw-r--r-- | packages/winunits-base/src/comobj.pp | 6 |
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 |