--- Unit2.fmx	2015/07/27 13:44:42	1
+++ Unit2.fmx	2015/07/28 08:41:38	2
@@ -8,6 +8,7 @@
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
   OnCreate = FormCreate
+  OnCloseQuery = FormCloseQuery
   OnDestroy = FormDestroy
   DesignerMasterStyle = 0
   object ToolBar1: TToolBar