Source position: daemonapp.pp line 28
type TDaemonOKEvent = procedure(
Sender: TCustomDaemon;
var OK: Boolean
) of object;