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

Ну писал тут без проверки, опечатался в одной буковке. Проверил на реальной проге - все нормально. Вот подправленный вариант:

Код:

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