[Yurk@]

Код:

var 
  i : integer;
  c : TComponent;
  s : string;
begin
  s := '';
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    c := Components[i];
    if c.ClassName = 'TEdit' then
      s := s + '|' + TEdit(c).Text;
  end;

не?