anchor.diff:    //        ftCursor: ;
             ftFixedChar: Result.AddPair(LPairName, LField.AsString);
             ftWideString: Result.AddPair(LPairName, LField.AsWideString);
  -          ftLargeint: Result.AddPair(LPairName, TJSONNumber.Create(LField.AsLargeInt));
  +          ftLargeint: Result.AddPair(LPairName, NumericFieldToJSON(LField));
     //        ftADT: ;
     //        ftArray: ;
     //        ftReference: ;
  
positive.code: 
  type
    TJSONFieldType = (NestedObject, NestedArray, SimpleValue);
  
  function RecordToJSONObject(const ADataSet: TDataSet; const ARootPath: string = ''): TJSONObject;
  var
  
negative.code:   //        ftInterface: ;
    //        ftIDispatch: ;
            ftGuid: Result.AddPair(LPairName, LField.AsString);
            ftTimeStamp: Result.AddPair(LPairName, DateFieldToJSON(LField));
            ftFMTBcd: Result.AddPair(LPairName, NumericFieldToJSON(LField));
            ftFixedWideChar: Result.AddPair(LPairName, LField.AsString);
            ftWideMemo: Result.AddPair(LPairName, LField.AsString);
    //        ftOraTimeStamp: ;
    //        ftOraInterval: ;
            ftLongWord: Result.AddPair(LPairName, NumericFieldToJSON(LField));
            ftShortint: Result.AddPair(LPairName, NumericFieldToJSON(LField));
            ftByte: Result.AddPair(LPairName, NumericFieldToJSON(LField));
            ftExtended: Result.AddPair(LPairName, NumericFieldToJSON(LField));
    //        ftConnection: ;
    //        ftParams: ;
    //        ftStream: ;
    //        ftTimeStampOffset: ;
    //        ftObject: ;
            ftSingle: Result.AddPair(LPairName, NumericFieldToJSON(LField));
          end;
        end;
      end;
  