Delphi数据压缩算法示例源码