第一种要领：
在窗体上放一个按钮：
1>、设置按钮的Cancel属性为True；
2>、在按钮的点击事件中写：
procedure TForm1.btn1Click(Sender: TObject);
begin
Close;
end;
Button按钮的Cancel属性：
该属性决定按钮是否为Cancel按钮。当设置为true时，，为Cancel按钮，即当用户按Esc键时，将执行按钮的
OnClick事件措置惩罚惩罚措施。当窗体中有多个Cancel按钮时，则只挪用Tab Order属性最小按钮的OnClick事件。
第二种要领：
1>.设置窗体的keypreview属性为：True；//可以接收键盘操纵
2>、在窗体的键盘事件中写：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
application.terminate; //*措施
end;