Source position: ziptypes.pp line 104
type UnzipReportProc = procedure(
Retcode: LongInt;
Rec: pReportRec
);