anchor.diff:      else
       begin
         raise ESvRttiException.Create(Format('Property or field %S does not exist for a value %S',
  -        [APropertyName, obj.ToString]));
  +        [APropertyOrFieldName, obj.ToString]));
       end;
     end;
   end;
  
positive.code:   obj: TValue;
  begin
    rType := TRttiContext.Create.GetType(TypeInfo(T));
    rField := rType.GetField(APropertyName);
    obj := TValue.From<T>(AObject);
    if Assigned(rField) then
    begin
      if obj.IsObject then
  
negative.code:   end
    else
    begin
      rProp := rType.GetProperty(APropertyOrFieldName);
      if Assigned(rProp) then
      begin
        if obj.IsObject then
  