anchor.diff:      Result := 1;
       exit;
     end;
  -
   
     if valtype2 = varnull then
     begin
  
positive.code: 
  // https://forum.lazarus.freepascal.org/index.php/topic,33013.msg213197.html#msg213197
  function SillyCryptDecrypt (const aText, aPassword: string): string;
  
  implementation
  
  
negative.code:   {$MODE DELPHI}
  {$ENDIF}
  
  uses
    Classes, SysUtils, Variants,
    mIntList, mDoubleList;
  
  const
    TheDayWhenTimeStarted = 730120; //01/01/2000 (starting from 01/01/01)
  