CompressStream

function CompressStream(

  const aInStream: TStream;

  const aOutStream: TStream;

  const aCompressionMethod: TpvCompressionMethod = TpvCompressionMethod.LZBRRC;

  const aCompressionLevel: TpvUInt32 = 5;

  const aParts: TpvUInt32 = 0

):Boolean;