Ничего сложного, даю маленькую подсказку...
В одном эдите пишешь длину текста, а во втором его перечисляешь, так вот перечисление начинается с нуля, т.е. во втором едите последний символ Length-1...
Если не понятно сказал, то исправь тут...
Код:
for i:= 0 to length(edit1.text)-1 do
тогда эта строка
Код:
if copy(edit1.text, i, 1) = ',' then
Будет работать.
За 50 р на веб мани напишу унит полностью)))