CREATE TABLE test (
  fields jsonb NOT NULL
  CONSTRAINT validate CHECK (
   (fields->'tst')::jsonb ?& array['col','ref']
  )
);

with FDConnection do 
begin
  ResourceOptions.DirectExecute := True;
  ResourceOptions.PreprocessCmdText := False;
  ResourceOptions.EscapeExpand := False;
  ResourceOptions.MacroCreate := False;
  ResourceOptions.MacroExpand := False;
  ResourceOptions.ParamCreate := False;
  ResourceOptions.ParamExpand := False;
end;

function TFDCustomConnection.ExecSQL(const ASQL: String; const AParams: array of Variant;
  const ATypes: array of TFieldType): LongInt;
var
  oCmd: IFDPhysCommand;
begin
  oCmd := BaseCreateSQL;
  try
    // Костыль, чтобы ExecSQL учитывал PreprocessCmdText из настроек соединения
    oCmd.Options.ResourceOptions.PreprocessCmdText := ResourceOptions.PreprocessCmdText;
    ...