Source position: fileutil.pas line 115
type TDirectoryFoundEvent = procedure(
FileIterator: TFileIterator
) of object;