Source position: dirwatch.pp line 113
type TWatchFileEventHandler = procedure(
Sender: TObject;
const aEvent: TFileChangeEvent
) of object;