procedure 被定义在单元中TForm1=class(TForm)语句之后.也可以双击该Event,直接转入到代码编辑器中编写代码。