Source position: unzip51g.pp line 117
function ViewZip(
SourceZipFile: PAnsiChar;
FileSpecs: PAnsiChar;
Report: UnzipReportProc
):Integer;