我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出

加个条件
if messagedlg（‘’，comfirm,....) =.. then 退出 else 。。。
对不起，我这没delphi，好象是这样的，就是判断如果弹出来的窗口是ok？ 就退出，否则不退出。

procedure TunFDataCol.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := False;
if MessageDlg('Are you sure to close the program?', mtConfirmation, [mbYES, mbNO], 0) = mrYes then
begin
CanClose := True;
end;
end;

呵呵，谢谢楼上的。我这没装delphi，不记得那个语句了