一个简单基本的问题(100分)

各位大虾：我是Delphi的初学者，希望得到你们的帮助：
实现功能：单击按钮可以退出程序，在退出时确认，如果选择否，则不退出程序。
使用Form上的关闭按钮也可以退出，在退出时确认，如果选择否，则不退出程序。
程序代码如下：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
mButton: integer;
begin
mButton := Application.MessageBox('确实要退出程序吗？', '退出程序',
MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION);
if mButton = IDYES then
ShowMessage(IntToStr(IDYES))
else
begin
ShowMessage(IntToStr(IDNO));
Exit;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

确实比较简单，代码如下
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('您确定退出程序吗？',mtinformation,[mbYes,mbNO],0)=mrYes then
begin
Action:=caFree;
end
else
begin
Action:=caNone;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

谢谢，接收答案了