Модуль =Сумма прописью= для Delphi

Уж, сколько написано подобных модулей, но меня все время что-то не устраивало. Решил написать свой. Есть следующие преобразования в пропись (устанавливаем число 100,85, получаем пропись):

Российский рубль
Пример: Сто российских рублей 85 копеек

Белорусский рубль
Пример: Сто белорусских рублей 85 копеек

Доллар США
Пример: Сто долларов США 85 центов

Евро
Пример: Сто Евро 85 центов

Неопределенный рубль
Пример: Сто рублей 85 копеек

Вес
Пример: Сто кг. 850 г.

Есть свойства:
1. Показывать ли дробную часть (True/False)
2. Округлять ли число (True/False)

Писал компонент уже давно, но он актуален и сегодня. Проверял на Delphi 7 и на Delphi 2010. Но думаю, работать должен на всех версиях.