Source position: fppdf.pp line 1237
procedure CompressStream(
AFrom: TStream;
ATo: TStream;
ACompressLevel: TCompressionLevel = clDefault;
ASkipHeader: Boolean = False
);