Source position: onguard.pas line 129
type TChangeCodeEvent = procedure(
Sender: TObject;
Code: TCode
) of object;