Alterar tab stop e read only de varios edits ao mesmo tempo

Pessoal, preciso de uma ajuda, eu preciso alterar o tabstop para false e read only para true, de todos os edits de um formulario ao mesmo tempo, eu faço isso um por um, tipo edit1.tabstop:=false; , e dá muito trabalho, tem como fazer para alterar todo componente que for tedit? Se alguem puder dar um toque valeu! um forte abraço a todos!

var
   i : Integer; 
begin 
  for i := 0 to ComponentCount -1 do 
     if Components[i] is TEdit then 
       begin 
          TEdit(Components[i]).TabStop := False; 
          TEdit(Components[i]).ReadOnly := True; 
       end;
end; 

É isso ai.. deu certo.. vale amigo! muito obrigado pela atenção!