Source position: xcms.pp line 280
function XcmsSetCompressionProc(
para1: TXcmsCCC;
para2: TXcmsCompressionProc;
para3: TXPointer
):TXcmsCompressionProc;