[fpc-pascal] How to use TCompressionStream?

[Marco van de Voort]

>     for i := 0 to Dest.Size - 1 do
>       IntToHex(Dest.ReadByte, 2);

Personally, I'd write() the strings that come from inttohex, instead of
discarding them :_)