title: TTrayIcon with OnMouseEnter/OnMouseLeave events
body: <p>I’m considering switching from the abandoned <code>TCoolTrayIcon</code> to Delphi’s own <code>TTrayIcon</code>. The only thing that I’m missing is <code>OnMouseEnter</code> and <code>OnMouseExit</code> (≘<code>OnMouseLeave</code>) that I need in my case.</p>
  
  <p>Is there an easy way to add these events to <code>TTrayIcon</code>? 
  (CoolTrayIcon does this with a timer ... I'm not sure if that's really the best solution)</p>