--- ibx/trunk/runtime/nongui/IBCustomDataSet.pas	2019/06/05 10:13:51	290
+++ ibx/trunk/runtime/nongui/IBCustomDataSet.pas	2020/04/17 10:26:08	291
@@ -973,7 +973,7 @@ const
 
 implementation
 
-uses Variants, FmtBCD, LazUTF8, FBMessages, IBQuery;
+uses Variants, FmtBCD, LazUTF8, IBMessages, IBQuery;
 
 type
 
@@ -3025,6 +3025,7 @@ procedure TIBCustomDataSet.SetUniDirecti
 begin
   CheckDatasetClosed;
   FUniDirectional := Value;
+  inherited SetUniDirectional(Value);
 end;
 
 procedure TIBCustomDataSet.SetUpdateRecordTypes(Value: TIBUpdateRecordTypes);