anchor.diff:                         jsoTStringsAsObject,       // Stream TStrings as an object : string = { object }
                          jsoDateTimeAsString,       // Format a TDateTime value as a string
                          jsoUseFormatString,        // Use FormatString when creating JSON strings.
  -                       jsoCheckEmptyDateTime);    // If TDateTime value is empty and jsoDateTimeAsString is used, 0 date returns empty string
  +                       jsoCheckEmptyDateTime,     // If TDateTime value is empty and jsoDateTimeAsString is used, 0 date returns empty string
  +                       jsoLegacyDateTime);         // Set this to enable old date/time formatting. Current behaviour is to save date/time as a ISO 9601 value.
     TJSONStreamOptions = Set of TJSONStreamOption;
   
     { TJSONFiler }
  
positive.code:   Result:=StreamProperty(AObject,GetPropInfo(AObject,PropertyName));
  end;
  
  function TJSONStreamer.StreamVariant(const Data: Variant): TJSONData;
  
  Var
    A : TJSONArray;
  
negative.code:   end;
  end;
  
  function TJSONStreamer.StreamTStringsObject(const AStrings: TStrings): TJSONObject;
  
  Var
    I : Integer;
  