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