Source position: dirwatch.pp line 136
type TNotifyCheckEvent = procedure(
sender: TObject;
var aContinue: Boolean
) of object;