Source position: eventlog.pp line 38
type TLogCategoryEvent = procedure(
Sender: TObject;
var Code: Word
) of object;