Source position: fpmkunit.pp line 1662
type TArchiveProc = procedure(
const AFileName: string;
List: TStrings
);