anchor.diff:  
   
     TDValueDataType = (vdtUnset, vdtNull, vdtBoolean, vdtSingle, vdtFloat,
  -    vdtInteger, vdtInt64, vdtUInt64, vdtCurrency, vdtGuid, vdtDateTime, vdtStringA,
  +    vdtInteger, vdtInt64, vdtUInt64, vdtCurrency, vdtGuid, vdtDateTime,
  +    vdtStringA,
       vdtString, vdtStringW, vdtStream, vdtInterface, vdtPtr, vdtObject, vdtArray);
   
     TDValueDataTypes = set of TDValueDataType;
  
positive.code:         (AsDateTime: TDateTime);
        7:
          (AsString: PString);
        {$IF (not Defined(NEXTGEN))}
        8:
          (AsStringA: PAnsiString);
        {$IFEND}
        9:
          (AsStringW: PDStringW);
        15:
  
negative.code:         New(ADValue.Value.AsString);
  {$IFDEF HAVE_ASNI_STRING}
        vdtStringA:
          New(ADValue.Value.AsStringA);
  {$ENDIF}
        vdtStringW:
          New(ADValue.Value.AsStringW);
  