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