diff --git a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
index 744c5955f1..b01489de17 100644
--- a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
+++ b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
@@ -19,9 +19,9 @@ const
   DefaultTimeOut = 60;
 
 type
-  EOraDatabaseError = class(EDatabaseError)
+  EOraDatabaseError = class(ESQLDatabaseError)
     public
-      ORAErrorCode : Longint;
+      property ORAErrorCode: integer read ErrorCode; deprecated 'Please use ErrorCode instead of ORAErrorCode'; // June 2014
   end;
 
   TOracleTrans = Class(TSQLHandle)
@@ -331,7 +331,7 @@ begin
   else
     E := EOraDatabaseError.Create(pchar(buf));
 
-  E.ORAErrorCode := errcode;
+  E.ErrorCode := errcode;
   Raise E;
 end;