anchor.diff:  
   begin
     case ADValue.ValueType of
  +{$IFDEF HAVE_ASNI_STRING}
       vdtStringA:
  -      Result := ADValue.Value.AsStringA^;    
  +      Result := ADValue.Value.AsStringA^;
  +{$ENDIF}
       vdtString:
         Result := ADValue.Value.AsString^;
       vdtStringW:
  
positive.code:     case ADValue.ValueType of
        vdtGuid:
          Dispose(ADValue.Value.AsGuid);
        vdtStringA:
          Dispose(ADValue.Value.AsStringA);
        vdtString:
          Dispose(ADValue.Value.AsString);
        vdtStringW:
  
negative.code: {$IFNDEF NEXTGEN}
  
  {$ENDIF}
  
  {$IF (not Defined(NEXTGEN))}
    {$DEFINE HAVE_ASNI_STRING}
  {$IFEND}
  
  interface
  
  