Componentes - acessando a propriedade igual de varios componentes

uses TypInfo;

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  for I:= 0 to ComponentCount-1 do

    if GetPropInfo(Components[I], 'ReadOnly') <> nil then

      SetPropValue(Components[I], 'ReadOnly', True);

end;