Source position: unzip51g.pp line 223
function GetFirstInZip(
zipfilename: PAnsiChar;
var zprec: TZipRec
):Integer;