Source position: onguard.pas line 139
type TGetRegStringEvent = procedure(
Sender: TObject;
var Value: string
) of object;