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