--- ibx/trunk/fbintf/client/FBArray.pas	2018/12/06 15:55:01	263
+++ ibx/trunk/fbintf/client/FBArray.pas	2020/04/17 10:26:08	291
@@ -161,8 +161,8 @@ type
     FBufSize: ISC_LONG;
     FArrayID: TISC_QUAD;
     procedure AllocateBuffer; virtual;
-    procedure Changing;
-    procedure Changed;
+    procedure Changing; virtual;
+    procedure Changed;  virtual;
     function GetArrayDesc: PISC_ARRAY_DESC;
     procedure InternalGetSlice; virtual; abstract;
     procedure InternalPutSlice(Force: boolean); virtual; abstract;
@@ -765,6 +765,7 @@ begin
   FMetaData := aField;
   FArrayID := ArrayID;
   FAttachment := aAttachment;
+  FFirebirdClientAPI := aTransaction.FirebirdAPI;
   FTransactionIntf :=  aTransaction;
   FTransactionSeqNo := aTransaction.TransactionSeqNo;
   FIsNew := false;