anchor.diff:      Procedure ValueArray(Const name : String); override;
       Procedure FinishArray; override;
       Procedure ValueInArray(Const value : String); overload; override;
  +    procedure valueNullInArray; override;
     end;
   
     TJSONLexType = (jltOpen, jltClose, jltString, jltNumber, jltColon, jltComma, jltOpenArray, jltCloseArray, jltEof, jltNull, jltBoolean);
  
positive.code: 
  procedure TJSONWriter.ValueNullInArray;
  begin
    valueInArray('null');
  end;
  
  procedure TJSONWriter.ValueNumber(const name, avalue: String);
  
negative.code:     Procedure ValueInArray(value : Int64); overload;
      Procedure ValueInArray(value : Double); overload;
      Procedure ValueDateInArray(aValue : TDateTime); overload;
      Procedure ValueNullInArray; virtual;
  
      Procedure WriteObject(name : String; obj : TJsonObject); overload;
      Procedure WriteObjectInner(obj : TJsonObject);
  