anchor.diff:    end;
   
     function NewTimer(Interval: Cardinal): ITimer;
  +
  +type
  +(*
  +  Minimalist SmartPointer implementation based on a blog post by Barry Kelly:
  +  http://blog.barrkel.com/2008/11/reference-counted-pointers-revisited.html,
  +  https://stackoverflow.com/questions/30153682/why-does-this-optimization-of-a-smartpointer-not-work
  +*)
  +  TSmartPointer = record
  +    class function Make<T: class>(AValue: T): TFunc<T>; static;
  +  end;
   
   Var
     StopWatch : TStopWatch;
  
positive.code:    Result := MulDiv(ASize, 96, FCurrentPPI);
  end;
  
  initialization
    StopWatch := TStopWatch.StartNew;
  
  
negative.code:   AnsiLineFeed       = AnsiChar(#10);
    AnsiCarriageReturn = AnsiChar(#13);
    AnsiCrLf           = AnsiString(#13#10);
    WordBreakString = ',.;:"�`�^!?&$@�%#~[](){}<>-=+*/\| ';
  
  (* returns the System ImageList index of the icon of a given file *)
  function GetIconIndexFromFile(const AFileName: string;
  