Unicamente Tedit

[Sotrono]

A ver si esto te sirve??

Código Delphi [-]
var 
  i, n: integer;
  Comp : TComponent;
  s: string;
begin
  n := 20 //Cantidad de Edits a recorrer
  s := 'Edit';
  for i:= 1 to n do begin
    Comp := FindComponent(s + IntToStr(i));
    if Comp is TEdit then
      showmessage(TEdit(Comp).Text);
  end;
end;

Bytes...

[dec]

Hola,

Propongo esta función:

Código Delphi [-]
function EditsTexts(container: TComponent) : string;
var
  i: integer;
begin
  Result := EmptyStr;
  for i := 0 to container.ComponentCount-1 do
  begin
    if (container.Components[i] is TEdit) then
      Result := Result + TEdit(container.Components[i]).Text;
  end;
end;

{ Ejemplo de llamada
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage( EditsTexts(Self) );
end;

[jam888]

Nuevamente me dieron la respuesta necesaria esto anda a full , las dos soluciones gracias y les envio un fuerte Abrazo.