Source position: onguard.pas line 133
type TGetCodeEvent = procedure(
Sender: TObject;
var Code: TCode
) of object;