Можно и так, а можно посмотреть как я эту проблему решил в самом начале темы. Смотрите код:
Код:
if Memo1.Text <> ''
then Memo1.Text := Memo1.Text+','+TEdit(Form1.Componets[i]).Text
else Memo1.Text := TEdit(Form1.Componets[i]).Text;
вот этот if и отвечает за правильное заполнение строки.
Адаптируйте под свой код если есть желание.