Ну код, что вы дали, багнутый, или у меня руки кривые.
В общем попытался поставить, во-первых ничего не работает, т.е. ничего не добавляется, во-вторых, когда вписываешь, что-нибудь в последний едит, то пишет еррор. Дальше попробовал не Онексит поставить, а просто при нажатии на кнопку, сразу стало выдавать ошибку. Вот код, подобрал под свою прогу:
Код:
for i := 0 to Form9.ComponentCount - 1
do if Form9.Components[i].ClassType = TEdit
then if form1.Script.Text <> ''
then form1.Script.Text := form1.script.Text+','+TEdit(Form1.Components[i]).Text
else form1.Script.Text := TEdit(Form1.Components[i]).Text;