Chart data logic separation

AuraTrader/MainForm.pas

@@ -165,6 +165,10 @@ begin
 
     var OhlcPoint: IMycConverter<TArray<TDataPoint<TAskBidItem>>, TDataPoint<TOhlcItem>> := TTicksToTimeframe.Create(M1);
 
+    var Timestamps: IMycConverter<TDataPoint<TOhlcItem>, TDateTime> :=
+        TMycGenericConverter<TDataPoint<TOhlcItem>, TDateTime>
+            .Create(function(const Ohlc: TDataPoint<TOhlcItem>): TDateTime begin Result := Ohlc.Time; end);
+
     var Ohlc: IMycConverter<TDataPoint<TOhlcItem>, TOhlcItem> :=
         TMycGenericConverter<TDataPoint<TOhlcItem>, TOhlcItem>
             .Create(function(const Ohlc: TDataPoint<TOhlcItem>): TOhlcItem begin Result := Ohlc.Data; end);
@@ -189,13 +193,14 @@ begin
     //
     //    chart.AddDoubleSeries(Hull.Sender);
 
+    chart.SetXAxisSeries<TOhlcItem>(OHLC.Sender);
+    chart.AddOhlcSeries(Ohlc.Sender);
+
     var done := ExecuteStrategy(Symbol, OhlcPoint);
 
     /////
 
     FProcessDone := TState.All([FProcessDone, done]);
-
-    chart.AddOhlcSeries(OhlcPoint.Sender);
 end;
 
 procedure TForm1.TreeViewDblClick(Sender: TObject);