DataRecord

AuraTrader/MainForm.fmx

@@ -205,7 +205,6 @@ object Form1: TForm1
               TabOrder = 0
               Text = 'Button1'
               TextSettings.Trimming = None
-              OnClick = Button1Click
             end
           end
         end

AuraTrader/MainForm.pas

@@ -85,7 +85,6 @@ type
         procedure StopButtonClick(Sender: TObject);
         procedure TreeViewDblClick(Sender: TObject);
         procedure AddWorkspaceActionExecute(Sender: TObject);
-        procedure Button1Click(Sender: TObject);
         procedure Strat2ButtonClick(Sender: TObject);
         procedure TestActionExecute(Sender: TObject);
         procedure StrategyButtonClick(Sender: TObject);
@@ -110,6 +109,7 @@ type
         function CurrLayout<T: TControl>: T;
         procedure AlignControl(Control: TControl);
         function CreateStrategy2(Timeframe: TTimeframe): IMycProcessor<TDataPoint<TOhlcItem>>;
+
     published
         property OnEvent: TNotifyEvent read FOnEvent write FOnEvent;
     end;
@@ -124,6 +124,11 @@ type
         constructor Create(AEquity: Double);
     end;
 
+type
+    TStaget1Result = record
+    ATR, Hull, SMA, O, H, L, C: Double
+    end;
+
 var
     Form1: TForm1;
 
@@ -292,11 +297,6 @@ begin
     Control.Align := TAlignLayout.Top;
 end;
 
-procedure TForm1.Button1Click(Sender: TObject);
-begin
-    Myc.DataRecord.Testfunc;
-end;
-
 function TForm1.CreateStrategy2(Timeframe: TTimeframe): IMycProcessor<TDataPoint<TOhlcItem>>;
 type
     TSignal = record