Source position: tiCompress.pas line 68
procedure tiCompressStream(
AStreamFrom: TStream;
AStreamTo: TStream;
const pCompress: string = cgsCompressZLib
);