Source position: onguard.pas line 135
type TGetKeyEvent = procedure(
Sender: TObject;
var Key: TKey
) of object;