Delphi点取消按钮退出程序

Question

在窗体创建时就弹框提示

点确定之后程序继续执行，进入到主窗体，若点击取消则程序不再执行，直接退出程序；附现代码

procedure TForm1.FormCreate(Sender: TObject);
begin
 if Application.Messagebox('确认是否继续！', '提示',MB_Iconinformation+MB_OKCANCEL) = ID_Cancel then
begin
 Close;
end;

end;

目前的问题就是点取消之后没有退出程序，也进入到了主窗体

请各位大佬指教，谢谢

Answer 1

if Application.Messagebox('确认是否继续！', '提示',MB_Iconinformation+MB_OKCANCEL) = ID_Cancel then
begin
// Close;
Application.Terminate; //这句是退出程序，Close只是关闭窗体。
end;