procedure TForm3.gradeKeyPress(Sender: TObject; var Key: Char);表示控件的键盘按下事件，双击空间出来的默认事件是控件改变的时间，选中控件，在事件选项中找到keypress事件，双击，则出现该事件。新手？
