anchor.diff:  
   // https://forum.lazarus.freepascal.org/index.php/topic,33013.msg213197.html#msg213197
   function SillyCryptDecrypt (const aText, aPassword: string): string;
  +
  +procedure ConvertVariantToStringList (const aValue : variant; aList : TStringList);
  +procedure ConvertVariantToIntegerList (const aValue : variant; aList : TIntegerList);
  +procedure ConvertVariantToDoubleList (const aValue : variant; aList : TDoubleList);
  +procedure ConvertVariantToDateList (const aValue : variant; aList : TIntegerList);
  +procedure ConvertVariantToDateTimeList (const aValue : variant; aList : TDoubleList);
   
   implementation
   
  
positive.code:   {$MODE DELPHI}
  {$ENDIF}
  
  uses Classes, SysUtils, Variants;
  
  const
    TheDayWhenTimeStarted = 730120; //01/01/2000 (starting from 01/01/01)
  
negative.code:     Result := 1;
      exit;
    end;
  
    if valtype2 = varnull then
    begin
  