title: delphi - count duplicates in list and sort
body: <p>I need count string duplicates and after sort them by DESC
  example:</p>
  <p>stringlist</p>
  <pre><code>111
  222
  333
  111
  222
  111
  </code></pre>
  <p>I need to get</p>
  <pre><code>111(3)
  222(2)
  333(1)
  </code></pre>
  <p>Can someone help?</p>