Source position: onguard.pas line 137
type TGetModifierEvent = procedure(
Sender: TObject;
var Value: LongInt
) of object;