Source position: fpmkunit.pp line 1533
type TArchiveEvent = procedure(
const AFileName: string;
List: TStrings
) of object;