？？？？？？？？？？？无法理解代码意识？？？？？？？？？(50分)

我也看不懂。

没用过Zlib。
但是看上去还是可以理解的。下面是我看代码所进行的理解。
procedure CompressIt(var CompressedStream: TMemoryStream;
const CompressionLevel: TCompressionLevel);
var
SourceStream: TCompressionStream; //SourceStream是负责压缩的流
DestStream: TMemoryStream; //DestStream保存的是压缩后的流
Count: int64;
begin
Count := CompressedStream.Size;
DestStream := TMemoryStream.Create;
SourceStream := TCompressionStream.Create(CompressionLevel, DestStream);
//根据压缩级别创建SourceStream，输出流为DestStream
try
CompressedStream.SaveToStream(SourceStream);//SourceStream会把压缩后的流输出到DestStream
SourceStream.Free;//SourceStream已经不需要了
CompressedStream.Clear;
CompressedStream.WriteBuffer(Count, SizeOf(Count));//写入原始图像的尺寸
CompressedStream.CopyFrom(DestStream, 0);//写入经过压缩的流
finally
DestStream.Free;
end;
end;

TCompressionStream应该是自己定义的类，看去看来就这句有点用
SourceStream := TCompressionStream.Create(CompressionLevel, DestStream);
看看 TCompressionStream的构造函数是怎么写的吧。

shenloqi你太逗了 ：

我是说
CompressedStream是否和SourceStream 重复？
为什么要
SourceStream := TCompressionStream.Create(CompressionLevel, DestStream);
为什么要
CompressedStream.SaveToStream(SourceStream) ;
句子 CompressedStream.WriteBuffer(Count, SizeOf(Count));
中的 Count不应该是DestStream.size吗？
……

每人理了吗？？？

多人接受答案了。