Sample SMA strategy

ASTPlayground/MainForm.fmx

@@ -33,7 +33,7 @@ object Form1: TForm1
     end
     object PrettyPrintButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 200.000000000000000000
+      Position.Y = 381.000000000000000000
       TabOrder = 3
       Text = 'Print'
       TextSettings.Trimming = None
@@ -41,7 +41,7 @@ object Form1: TForm1
     end
     object DebugButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 230.000000000000000000
+      Position.Y = 411.000000000000000000
       TabOrder = 4
       Text = 'Debug'
       TextSettings.Trimming = None
@@ -59,8 +59,8 @@ object Form1: TForm1
       OnClick = RecursionButtonClick
     end
     object ShowScopeBox: TCheckBox
-      Position.X = 32.000000000000000000
-      Position.Y = 256.000000000000000000
+      Position.X = 24.000000000000000000
+      Position.Y = 441.000000000000000000
       TabOrder = 6
       Text = 'Scope'
     end
@@ -74,7 +74,7 @@ object Form1: TForm1
     end
     object CrerateTriggerExampleButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 320.000000000000000000
+      Position.Y = 168.000000000000000000
       TabOrder = 9
       Text = 'TriggerTest'
       TextSettings.Trimming = None
@@ -82,7 +82,7 @@ object Form1: TForm1
     end
     object DoTriggerButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 350.000000000000000000
+      Position.Y = 198.000000000000000000
       TabOrder = 10
       Text = 'Trigger!'
       TextSettings.Trimming = None
@@ -97,7 +97,7 @@ object Form1: TForm1
     end
     object ClearButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 432.000000000000000000
+      Position.Y = 472.000000000000000000
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
@@ -115,7 +115,7 @@ object Form1: TForm1
     end
     object SeriesTestButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 152.000000000000000000
+      Position.Y = 274.000000000000000000
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
@@ -124,6 +124,14 @@ object Form1: TForm1
       TextSettings.Trimming = None
       OnClick = SeriesTestButtonClick
     end
+    object OHLCButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 304.000000000000000000
+      TabOrder = 15
+      Text = 'OHLC'
+      TextSettings.Trimming = None
+      OnClick = OHLCButtonClick
+    end
   end
   object Panel2: TPanel
     Align = Client