Odwołanie do wszystkich komponentów

Czy istnieje sposób odwołania się do wszystkich komponentów danego typu np TEdit i zmiane ich parametrów. Np mam 30 TEdit i chcę zmienić ich kolor na inny narmalnie trzeba była by wklepać edit1.color:='red'; edit2.color:='red' .....
Może można to zrobić łatwiej?
Dzieki

var
  i: Integer;
begin
  for i := 0 to Form1.ControlCount - 1 do
    if (Form1.Controls[i] is TEdit) then
      TEdit(Form1.Controls[i]).Color := clRed;

end;