anchor.diff:      procedure ToSimpleObject(AObject: TObject; ACaseSensitive: Boolean = True);
       // FromSimpleObject() clears the JSON object and adds the Delphi object's properties.
       // The object's class must be compiled with the $M+ compiler switch or derive from TPersistent.
  -    procedure FromSimpleObject(AObject: TObject; ALowerCamelCase: Boolean = False);
  +    procedure FromSimpleObject(AObject: TObject; ALowerCamelCase: Boolean = False; ASkipDefaultValues: Boolean = False);
   
       procedure Clear;
       procedure Remove(const Name: string);
  
positive.code:               InternAdd(PropName, GetInt64Prop(AObject, PropList[Index]));
  
              tkString, tkLString, tkWString, tkUString:
                InternAdd(PropName, GetStrProp(AObject, PropList[Index]));
  
              tkSet:
                InternAdd(PropName, GetSetProp(AObject, PropList[Index]));
  
negative.code:               begin
                  PropType := PropList[Index].PropType^;
                  D := GetFloatProp(AObject, PropList[Index]);
                  if ASkipDefaultValues and (D = 0) then Continue;
                  if (PropType = TypeInfo(TDateTime)) or (PropType = TypeInfo(TDate)) or (PropType = TypeInfo(TTime)) then
                    InternAdd(PropName, TDateTime(D))
                  else
  