Unicamente Tedit

[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;