delphi中退出是弹出让你确定的几种确定对话框怎么写？

procedure TForm2.btn1Click(Sender: TObject);
begin
  if MessageBox(Handle, '你确定要退出系统吗？', '信息提示', MB_OKCANCEL + MB_ICONQUESTION) =
    IDOK then
  begin
    Close;
  end;
end;

运行效果截图: