anchor.diff:  // http://users.atw.hu/delphicikk/listaz.php?id=2189&oldal=11
   function DateTimeStrEval(const DateTimeFormat: string; const DateTimeStr: string): TDateTime;
   
  +function DateToJsonString(const aValue : TDate): String;
  +function TimeToJsonString(const aValue : TTime): String;
  +function DateTimeToJsonString(const aValue : TDateTime): String;
  +
  +function TryToUnderstandJsonDateString(const aInputString: string; out aValue: TDate): boolean;
  +function TryToUnderstandJsonTimeString(const aInputString: string; out aValue: TTime): boolean;
  +function TryToUnderstandJsonDateTimeString(const aInputString: string; out aValue: TDateTime): boolean;
  +
   // https://code.google.com/p/theunknownones/
   function VarRecToVariant (AValue : TVarRec) : Variant;
   
  
positive.code: function ConvertDoubleListToVariant (const aList : TDoubleList): Variant;
  function ConvertDoublesToVariant(const aValue1, aValue2: double): Variant;
  function ConvertIntegersToVariant(const aValue1, aValue2: integer): Variant;
  
  function GetCPUCores : integer;
  function GetApplicationLocalDataFolder (const aApplicationSubDir : string) : String;
  
negative.code:   tmpVariant : variant;
  begin
    tmpVariant := Variants.VarArrayCreate([0, 1], varinteger);
    VarArrayPut(tmpVariant, aValue1, [0]);
    VarArrayPut(tmpVariant, aValue2, [1]);
    Result := tmpVariant;
  end;
  
  function ConvertDatesToVariant(const aValue1, aValue2: TDate): Variant;
  var
    tmpVariant : variant;
  begin
    tmpVariant := Variants.VarArrayCreate([0, 1], vardate);
    VarArrayPut(tmpVariant, aValue1, [0]);
    VarArrayPut(tmpVariant, aValue2, [1]);
    Result := tmpVariant;
  