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

Я так понял, что те едиты в которых нет данных должны пропускаться. Тогда будет так:

Код:

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