procedure Compress(DestStream: TStream; CompressionFormat:
      TCompressionFormat=cfZLib; CompressionLevel:
      Integer=DEFAULT_COMPRESSION)

Available In: Server Applications

Use this method to compress the data in the stream into the destination stream using the specified compression algorithm. The compression starts from the stream's Position property and the stream's AvailableSize property is used as the count. The compressed data is written to the destination stream starting at the destination stream's current position.