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