anchor.diff:  var
     Serial: TSerialFromJson;
   begin
  +
     if TypeInfo <> nil then
     begin
       if not SerialFromJson.TryGetValue(TypeInfo, Serial) then
  
positive.code:           Result := True;
          end else
            Result := False;
        end;
      stNull:
        begin
          TValue.Make(nil, TypeInfo, Value);
          TValueData(Value).FAsSInt64 := -1;
          result := true;
        end;
      else
        Result := False;
  
negative.code: 
    SerialFromJson.Add(TypeInfo(Boolean), serialfromboolean);
    SerialFromJson.Add(TypeInfo(TGUID), serialfromguid);
    SerialFromJson.Add(TypeInfo(TDateTime), serialfromdatetime);
    SerialFromJson.Add(TypeInfo(TDate), serialfromdatetime);
    SerialFromJson.Add(TypeInfo(TTime), serialfromdatetime);
    SerialFromJson.Add(TypeInfo(variant), serialfromvariant);
    SerialToJson.Add(TypeInfo(Boolean), serialtoboolean);
    SerialToJson.add(TypeInfo(TDatetime), serialtodatetime);
    SerialToJson.add(TypeInfo(TTime), serialtodatetime);
    SerialToJson.add(TypeInfo(TDate), serialtodatetime);
  
    SerialToJson.Add(TypeInfo(TGUID), serialtoguid);
  end;
  