if ShowConfirmTitleMessage('Close Application', 'Are you sure you want to exit the application?', mbYes, mbNo) = mrOK then
  close;