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