Funcion para leer compomentes

[iMia]

Tal y como lo plantea Casimiro, yo lo veo como mejor opción... Más abstracto, más genérico. más elegante, trasladable, reaprovechable, etc...
Por que si no no hace falta hacer un bucle que se recorra todos los objetos... con hacer n llamadas a FindComponent('Editn').With := x; ya estaría...

procedure TForm1.Button1Click(Sender: TObject);
var
 N: SmallInt;
begin
    for N := 0 to pred(ComponentCount) do
      if (Components[N] is TEdit) 
        or (Components[N] is TMemo)
        or ....   then 
        (Components[N] as TWinControl).height  :=  (Components[N] as TWinControl).height *2;
end;