anchor.diff:  function IsGenericType(TypeInfo: PTypeInfo): Boolean;
   function GetDeclaredGenericType(RttiContext: TRttiContext; TypeInfo: PTypeInfo): TRttiType;
   function IsList(RttiContext: TRttiContext; TypeInfo: PTypeInfo): Boolean;
  +function CreateInstance(RttiContext: TRttiContext; TypeInfo: PTypeInfo): TValue ;
   {$ENDIF}
   
   implementation
  
positive.code:   {$DEFINE HAVE_INLINE}
  {$ifend}
  
  {$if defined(VER210) or defined(VER220) or defined(VER230)}
    {$define HAVE_RTTI}
  {$ifend}
  
  {$if defined(VER230)}
    {$define NEED_FORMATSETTINGS}
  {$ifend}
  
  
negative.code:             Result := True;
  
              if Value.Kind <> tkClass then
              begin
                Value := CreateInstance(Context, TypeInfo);
              end;
  
              method := Context.GetType(Value.AsObject.ClassType).GetMethod('Add');
  
  