Source position: msegui.pas line 1593
type keyeventty = procedure(
const sender: twidget;
var ainfo: keyeventinfoty
) of object;