[san-46]

Полученную от функции сумму надо преобразовать в строку.
Если вышеприведенную функцию обозвать Summa, то получится так:

Код:

Edit1.Text := FloatToStr(Summa) //или применить ф. FloatToStrF