sys.zlib.pasunitsys.zlib;//cxg2025-1-10fit(fpc+delphi)interfaceuses{$IFDEFfpc}ZStream,{$else}zlib,{$endif}Variants,SysUtils,Classes;functionCompressVariant(V:OleVariant):OleVariant;functionCompressStream(val:TStream):TStre