请教delphi是否有压缩和解压字符串函数

请问delphi是否有压缩和解压字符串函数？
各位朋友，请问delphi是否有压缩和解压字符串函数？
base64生成的字符串太长了，有没有办法压缩一下？

[解决办法]
弄一个zlib吧。
[解决办法]
压缩后在base64
[解决办法]
zlib,lzw什么的都可以.
[解决办法]
用zLib 就可以了

ZCompress
ZCompressStr
ZCompressStream