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