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

На последнем едите сделайте обработку события onExit там пропишите примерно такое:

Код:

Memo1.Text := '';
for i := 0 to Form1.ComponentCount - 1
do if Form1.Componets[i].ClassType = TEdit
    then if Memo1.Text <> ''
           then Memo1.Text := Memo1.Text+','+TEdit(Form1.Componets[i]).Text
           else Memo1.Text := TEdit(Form1.Componets[i]).Text;