高手进来看看

Question

我的一个程序，我用一个按钮来控制是否退出程序，调用MessageBox函数给出提示信息，
代码如下：
procedure TMForm.Action6Execute(Sender: TObject);
begin
   MessageBox(handle,'确定要退出吗？','提示',MB_OKCANCEL+MB_ICONQUESTION);
   Table1.Free;
   Close;
end;运行后给出的提示框有  确定  和  取消  两个按钮，但不管点哪个，程序都会退出，
怎么才能在点取消的时候不退出呀？请教了！

Answer 1

If MessageBox(handle,'确定要退出吗？','提示',MB_OKCANCEL+MB_ICONQUESTION)=IDOK Then begin
 Table1.Free;
 Close;
end;