TWMCharMsgHandler = procedure (var Message: TWMChar) of object;

TntStdCtrls

This is type TntStdCtrls.TWMCharMsgHandler.