AST Refactoring

ASTPlayground/MainForm.fmx

@@ -33,7 +33,7 @@ object Form1: TForm1
     end
     object PrettyPrintButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 381.000000000000000000
+      Position.Y = 405.000000000000000000
       TabOrder = 3
       Text = 'Print'
       TextSettings.Trimming = None
@@ -52,7 +52,7 @@ object Form1: TForm1
     end
     object ShowScopeBox: TCheckBox
       Position.X = 24.000000000000000000
-      Position.Y = 441.000000000000000000
+      Position.Y = 465.000000000000000000
       TabOrder = 5
       Text = 'Scope'
     end
@@ -89,7 +89,7 @@ object Form1: TForm1
     end
     object ClearButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 472.000000000000000000
+      Position.Y = 496.000000000000000000
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
@@ -126,13 +126,13 @@ object Form1: TForm1
     end
     object DebugBox: TCheckBox
       Position.X = 24.000000000000000000
-      Position.Y = 360.000000000000000000
+      Position.Y = 384.000000000000000000
       TabOrder = 15
       Text = 'Debug'
     end
     object FromJSONButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 520.000000000000000000
+      Position.Y = 544.000000000000000000
       TabOrder = 16
       Text = 'From JSON'
       TextSettings.Trimming = None
@@ -140,12 +140,20 @@ object Form1: TForm1
     end
     object ToJSONButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 550.000000000000000000
+      Position.Y = 574.000000000000000000
       TabOrder = 17
       Text = 'To JSON'
       TextSettings.Trimming = None
       OnClick = ToJSONButtonClick
     end
+    object ExternalFuncButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 336.000000000000000000
+      TabOrder = 18
+      Text = 'External Func'
+      TextSettings.Trimming = None
+      OnClick = ExternalFuncButtonClick
+    end
   end
   object Panel2: TPanel
     Align = Client