Unit refactoring

Fixed massive heap corruption bug in TDataRecord

Src/Myc.Trade.Types.pas

@@ -2,6 +2,9 @@ unit Myc.Trade.Types;
 
 interface
 
+uses
+    Myc.Core.Future;
+
 type
     TTimeframe = (S, S5, S15, S30, M, M2, M3, M5, M10, M15, M30, H, H2, H3, H4, H8, H12, D, D2, D3, W, MN, MN3, MN6, Y);
 
@@ -28,11 +31,6 @@ type
         constructor Create(ATime: TDateTime; const AData: T);
     end;
 
-    TConstFunc<S, T> = reference to function(const Value: S): T;
-    TConstFunc<S, T, U> = reference to function(const Value1: S; const Value2: T): U;
-    TConstProc<T> = reference to procedure(const Value: T);
-    TConstFuncPredicate<S, T> = reference to function(const Value: S; out Res: T): Boolean;
-
 implementation
 
 { TAskBidItem }