请问ONCLOSE的事件要如何编写？谢谢

[lzsywk]

我在程序的主界面的onclose事件编写了如下的代码：
procedure Tw_f_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('确定要退出本系统吗？',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
w_f_main.Close;
Application.Terminate;
end;
end;
如果用户是按了‘NO’这个按钮，则不退出系统。
请问接下来的程序要怎样写？
谢谢了