Source position: zglGui.pas line 136
type zglTKeyEvent = procedure(
Sender: zglTGUIObject;
Key: Byte;
var Cancel: Boolean
) of object;