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