Revisa este mensaje de Caro:
http://www.clubdelphi.com/foros/showthread.php?t=66983
El código que aquí ha colocado Black_Ocean:
http://www.clubdelphi.com/foros/showthread.php?t=55278
O la función que aquí aparece:
http://www.ajpdsoft.com/modules.php?...owpage&pid=211
Si buscas en los foros, encontrarás muchas más respuestas sobre el tema.