anchor.diff:      procedure WriteByte(V: uint8; rep:integer = 1); inline;
       procedure WriteWord(V: Word);inline;
       procedure WriteDword(V: DWord);inline;
  -    procedure WriteBuffer(const Buffer; Count: Longint);{inline;}
  -
  -
  +    procedure WriteBuffer(const Buffer; Count: Longint);
     end;
   
   
  
positive.code:     function GetPos: Int64;
    end;
  
    TStreamWriteAdapter = object (TStreamAdapter)
    public
      constructor Create(dest: TStream);
  
negative.code: 
  constructor TStreamReadAdapter.Create(dest: TStream);
  begin
    inherited Create(dest);
  end;
  
  function TStreamReadAdapter.ReadBoolean: Boolean;
  