--- packages/fcl-db/src/sqldb/interbase/ibconnection.pp
+++ packages/fcl-db/src/sqldb/interbase/ibconnection.pp
@@ -26,16 +26,22 @@
     ServerVersionString : string;  //Complete version string, including name, platform
   end;
 
+  TStatusVector = array [0..19] of ISC_STATUS;
+
   EIBDatabaseError = class(ESQLDatabaseError)
-    public
-      property GDSErrorCode: integer read ErrorCode; deprecated 'Please use ErrorCode instead of GDSErrorCode'; // Nov 2014
+  public
+    StatusVector: TStatusVector;
+    constructor CreateFmt(const Fmt: string; const Args: array of const;
+      Comp: TComponent; AErrorCode: Integer; ASQLState: string;
+      Status: PISC_STATUS); overload;
+    property GDSErrorCode: integer read ErrorCode; deprecated 'Please use ErrorCode instead of GDSErrorCode'; // Nov 2014
   end;
 
   { TIBCursor }
 
   TIBCursor = Class(TSQLCursor)
     protected
-    Status               : array [0..19] of ISC_STATUS;
+    Status               : TStatusVector;
     TransactionHandle    : pointer;
     StatementHandle      : pointer;
     SQLDA                : PXSQLDA;
@@ -48,7 +54,7 @@
     protected
     TransactionHandle   : pointer;
     TPB                 : string;                // Transaction parameter buffer
-    Status              : array [0..19] of ISC_STATUS;
+    Status              : TStatusVector;
   end;
 
   { TIBConnection }
@@ -57,7 +63,7 @@
   private
     FCheckTransactionParams: Boolean;
     FDatabaseHandle        : pointer;
-    FStatus                : array [0..19] of ISC_STATUS;
+    FStatus                : TStatusVector;
     FDatabaseInfo          : TDatabaseInfo;
     FDialect               : integer;
     FBlobSegmentSize       : word; //required for backward compatibilty; not used
@@ -159,13 +165,22 @@
   SQL_BOOLEAN_FIREBIRD = 32764;
   INVALID_DATA = -1;
 
+constructor EIBDatabaseError.CreateFmt(const Fmt: string; const Args: array of const;
+  Comp: TComponent; AErrorCode: Integer; ASQLState: string; Status: PISC_STATUS);
+var
+  i: Integer;
+begin
+  for i := 0 to 19 do
+    StatusVector[i] := Status[i];
+  CreateFmt(Fmt, Args, Comp, AErrorCode, ASQLState);
+end;
 
 procedure TIBConnection.CheckError(ProcName : string; Status : PISC_STATUS);
 var
   ErrorCode : longint;
   Msg, SQLState : string;
   Buf : array [0..1023] of char;
-
+  FStatusVector: PISC_STATUS;
 begin
   if ((Status[0] = 1) and (Status[1] <> 0)) then
   begin
@@ -177,10 +192,12 @@
       SQLState := StrPas(Buf);
     end;
 {$ENDIF}
+    { get a local reference to status vector }
+    FStatusVector := Status;
     Msg := '';
     while isc_interprete(Buf, @Status) > 0 do
       Msg := Msg + LineEnding + ' -' + StrPas(Buf);
-    raise EIBDatabaseError.CreateFmt('%s : %s', [ProcName,Msg], Self, ErrorCode, SQLState);
+    raise EIBDatabaseError.CreateFmt('%s : %s', [ProcName,Msg], Self, ErrorCode, SQLState, FStatusVector);
   end;
 end;