TKeyPressEvent = procedure (Sender: TObject; var Key: Char)
Событие нажатия клавиши.
Параметры:
Ссылки: TWinControl.OnKeyPress