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