Source position: tiCompress.pas line 69
procedure tiCompressStringToFile(
const AString: string;
const AFileName: string;
const ACompress: string = cgsCompressZLib
);