anchor.diff:  
   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;
   
  
positive.code: function ObjectIntStrAddr(pvObj:TObject): String;
  begin
    Result := IntToStr(IntPtr(pvObj));
  end;
  
  function DateTimeString(pvDateTime:TDateTime): string;
  
negative.code:   Move(FData[0], PDCharW(Result)^, l shl 1); 
  end;
  
  initialization  
    __DateFormat.DateSeparator := '-';
    __DateFormat.TimeSeparator := ':';
    __DateFormat.ShortDateFormat := 'yyyy-MM-dd';
    __DateFormat.LongDateFormat := 'yyyy-MM-dd';
    __DateFormat.ShortTimeFormat := 'HH:mm:ss';
    __DateFormat.LongTimeFormat := 'HH:mm:ss';
  
  {$IFDEF MSWINDOWS}
  
  