anchor.diff:  
   implementation
   
  -uses variants, LazLoggerBase;
  +uses  dateutils, variants, rtlconsts, LazLoggerBase;
   
   ResourceString
     SErrUnknownPropertyKind     = 'Unknown property kind for property : "%s"';
  
positive.code:     Raise;
    end;
  end;
  
  function TJSONStreamer.StreamClassProperty(const AObject: TObject): TJSONData;
  begin
    Result:=Nil;
  
negative.code:   I,J,S : Integer;
    A : TJSONArray;
    JS : TJSONStringType;
  begin
    PI:=PropInfo;
    TI:=PropInfo^.PropType;
    case TI^.Kind of
      tkUnknown :
        Error(SErrUnknownPropertyKind,[PI^.Name]);
      tkInteger :
        SetOrdProp(AObject,PI,PropData.AsInteger);
      tkInt64 :
        SetOrdProp(AObject,PI,PropData.AsInt64);
  