Implementing first "strategy" for proof of concept

Src/Myc.Test.Trade.DataPoint.pas

@@ -134,7 +134,7 @@ procedure TTestDataSeries.TestSetupSeriesWithDataVerification;
 var
     i: Integer;
     baseTime, expectedTime: TDateTime;
-    expectedAsk: Single;
+    expectedAsk: Double;
 begin
     SetupSeriesWithData;
     baseTime := EncodeDate(2020, 7, 7);
@@ -200,7 +200,7 @@ begin
     begin
         expectedTime := baseTime + (9 - i);
         Assert.AreEqual(expectedTime, FSeries.Items[i].Time, 'Item at logical index should have reversed chronological time');
-        Assert.AreEqual(Single(9 - i), FSeries.Items[i].Data.Ask, 'Item data at logical index should match reversed insertion order');
+        Assert.AreEqual(Double(9 - i), FSeries.Items[i].Data.Ask, 'Item data at logical index should match reversed insertion order');
     end;
 end;
 
@@ -648,9 +648,9 @@ procedure TTestDataSeries.TestDataAndTimePropertiesRespectLookback;
 var
     baseTime: TDateTime;
     expectedOldestTime: TDateTime;
-    expectedOldestAsk: Single;
+    expectedOldestAsk: Double;
     expectedNewestTime: TDateTime;
-    expectedNewestAsk: Single;
+    expectedNewestAsk: Double;
 begin
     SetupSeriesWithData(20, 15); // Add 20 items, lookback 15.
     // Visible items are those originally at index 5 through 19.