SumToStr - это функция
SumToStr(<Number>, <WordType=1>)
Сумма прописью. wordType=1-руб коп; 2-кг гр; 3-тн кг; 0-без всего
SumToStr( 50 )
SumWithKop
Функции Delphi
Полезные функции