Перевод в сумму прописью...
Как перевести 21.60 в "Двацать один рубль 60 копеек"?
Edit1->Text.Length(); длина строки
Edit1->Text.SubString(int с какого места,int сколько симвалов вывести);
Это уже было. В форуме по Delphi. Там все подробно расписали.