Delphinum, в открытом доступе имеется функция
http://annimon.com/code/?act=v ... =2098
шкала
http://annimon.com/code/?act=v ... =2093
и есть пара статических классов
http://annimon.com/code/?act=v ... =2050
http://annimon.com/code/?act=v ... =2056