anchor.diff:  procedure TBufferedTransportImpl.Open;
   begin
     FTransport.Open
  +  InitBuffers;  // we need to get the buffers to match FTransport substreams again
   end;
   
   function TBufferedTransportImpl.Read( const pBuf : Pointer; const buflen : Integer; off: Integer; len: Integer): Integer;
  
positive.code:   Create( ATransport, 1024 );
  end;
  
  procedure TBufferedTransportImpl.Close;
  begin
    FTransport.Close;
  end;
  
  constructor TBufferedTransportImpl.Create( const ATransport: IStreamTransport;  ABufSize: Integer);
  begin
    inherited Create;
  
negative.code:   InitBuffers;
  end;
  
  procedure TBufferedTransportImpl.Close;
  begin
    FTransport.Close;
    FInputBuffer := nil;
    FOutputBuffer := nil;  
  end;
  
  procedure TBufferedTransportImpl.Flush;
  begin
    if FOutputBuffer <> nil then begin
  