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