Source position: onguard.pas line 131
type TCheckedCodeEvent = procedure(
Sender: TObject;
Status: TCodeStatus
) of object;