Source position: unzip51g.pp line 77
function FileUnzip(
SourceZipFile: pChar;
TargetDirectory: pChar;
FileSpecs: pChar;
Report: UnzipReportProc;
Question: UnzipQuestionProc
):Integer;