Pipes and test scripts

ASTPlayground/MainForm.fmx

@@ -183,6 +183,12 @@ object Form1: TForm1
       TabOrder = 24
       OnChange = RTLListViewChange
     end
+    object SaveTestBtn: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 479.000000000000000000
+      TabOrder = 26
+      Text = 'Save test'
+    end
   end
   object Panel2: TPanel
     Align = Client

ASTPlayground/MainForm.pas

@@ -44,7 +44,8 @@ uses
     Myc.Ast.RTL,
     Myc.Ast.Compiler.Macros,
     // Editor Units
-    Myc.Fmx.AstEditor;
+    Myc.Fmx.AstEditor,
+    FMX.Menus;
 
 type
     // A test record
@@ -87,6 +88,7 @@ type
         SaveUserLibButton: TButton;
         RTLListView: TListView;
         CompilerStageBox: TComboBox;
+        SaveTestBtn: TButton;
         procedure InnerLambdaButtonClick(Sender: TObject);
         procedure ClearButtonClick(Sender: TObject);
         procedure CompilerStageBoxChange(Sender: TObject);