Possible bug in `TPJIStreamWrapper.CopyTo`

[delphidabbler]

In

streams/PJIStreams.pas

Line 350 in 9fcf75b

function TPJIStreamWrapper.CopyTo(stm: IStream; cb: Largeint; out cbRead,

the following Exit statement appears to cause S_OK to be returned when the function is returning because of a write error:

streams/PJIStreams.pas

Line 392 in 9fcf75b

Exit; // write error