anchor.diff:  {$ENDIF}
   //  VCMemCmp: TMSVCMemCmp;
   {$ENDIF}
  +
  +var
  +  __DateFormat: TFormatSettings;
   
   procedure PrintDebugString(s:string);
   begin
  
positive.code:   Move(FData[0], PDCharW(Result)^, l shl 1); 
  end;
  
  initialization
  
  {$IFDEF MSWINDOWS}
  
  
negative.code: 
  function DateTimeString(pvDateTime:TDateTime): string; {$IFDEF HAVE_INLINE} inline;{$ENDIF}
  function NowString: String; {$IFDEF HAVE_INLINE} inline;{$ENDIF}
  function DateTimeStrToDateTime(const strDateTime:string):TDateTime;{$IFDEF HAVE_INLINE} inline;{$ENDIF}
  
  function tick_diff(tick_start, tick_end: Cardinal): Cardinal;
  
  