anchor.diff:      function Value: Variant;
     end;
   
  -  /// DataStream dapter of an OleVariant
  +  /// DataStream adapter from an OleVariant
     TDataStreamOfOleVariant = class(TInterfacedObject, IDataStreamOf)
     private
       fOrigin: OleVariant;
  
positive.code:     procedure Adapt;
    end;
  
    /// DataStream adapter for OleVariant
    TDataStreamAsOleVariant = class(TInterfacedObject, IVariantOf)
    private
      fOrigin: IDataStream;
  
negative.code:   JamesDataCore;
  
  type
    /// DataStream adapter for Strings
    TDataStreamForStrings = class(TInterfacedObject, IDataAdapterFor)
    private
      fOrigin: IDataStream;
  