Source position: fileutil.pas line 125
type TQueryDirectoryFoundEvent = procedure(
FileIterator: TFileIterator;
const Dir: string;
var Accept: Boolean
) of object;