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