[Lazarus] Function to get the mimetype from a file extension

[silvioprog]

Please see "MimeTypeFromExt" function in Synapse project:

https://synalist.svn.sourceforge.net/svnroot/synalist/trunk/mimepart.pas

--
Silvio Clécio
============================================
Site - <silvioprog.com.br>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <github.com/silvioprog/lazwebsolutions>
============================================