[[Bicho]]

Hola beatriz prueba con esto

Código Delphi [-]
for n:=(Form1.ComponentCount -1) downto 0 do
    begin
       if Components[n] is TEdit then
         begin
           TEdit(Components[n]).readonly := true;
         end;
    end;

Espero te sirva,

Saludos