AST refactoring

ASTPlayground/MainForm.fmx

@@ -7,6 +7,8 @@ object Form1: TForm1
   FormFactor.Width = 320
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   DesignerMasterStyle = 0
   object Panel1: TPanel
     Align = Left
@@ -71,6 +73,29 @@ object Form1: TForm1
       TextSettings.Trimming = None
       OnClick = FibonacciButtonClick
     end
+    object CrerateTriggerExampleButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 320.000000000000000000
+      TabOrder = 9
+      Text = 'TriggerTest'
+      TextSettings.Trimming = None
+      OnClick = CrerateTriggerExampleButtonClick
+    end
+    object DoTriggerButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 350.000000000000000000
+      TabOrder = 10
+      Text = 'Trigger!'
+      TextSettings.Trimming = None
+      OnClick = DoTriggerButtonClick
+      object DoTrigger2Button: TButton
+        Position.Y = 30.000000000000000000
+        TabOrder = 8
+        Text = 'Trigger2'
+        TextSettings.Trimming = None
+        OnClick = DoTrigger2ButtonClick
+      end
+    end
   end
   object Memo1: TMemo
     Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]