anchor.diff:      procedure SetParamVariant(const name: string; const Value: Variant); overload;
       procedure SetParamBlob(const I: Integer; const Value: TStream); overload;
       procedure SetParamBlob(const name: string; const Value: TStream); overload;
  -
  +    {$IFDEF DELPHI14_UP}
       /// <summary>
       /// Executes previously set SQL statement and fetches results into given class type
       /// </summary>
       function ExecSQLAndMapData<T: constructor, class>(var DataList: TObjectList<T>): Boolean;
  +    {$ENDIF}
       /// <summary>
       /// Executes query which returns unidirectional table
       /// </summary>
  
positive.code:     end;
    end;
  end;
  
  (*
  function TSQLitePreparedStatement.FindParam(const name: string): TSQliteParam;
  
negative.code: uses
    Variants,
    Math,
    {$IFDEF DELPHI14_UP}
    Rtti,
    {$ENDIF}
    TypInfo;
  
  const
  