[Страдалецъ]

Можно и так, а можно посмотреть как я эту проблему решил в самом начале темы. Смотрите код:

Код:

if Memo1.Text <> ''
           then Memo1.Text := Memo1.Text+','+TEdit(Form1.Componets[i]).Text
           else Memo1.Text := TEdit(Form1.Componets[i]).Text;

вот этот if и отвечает за правильное заполнение строки.
Адаптируйте под свой код если есть желание.