Source position: eventlog.pp line 37
type TLogCodeEvent = procedure(
Sender: TObject;
var Code: DWord
) of object;