Delphi - Percorrer todos os componentes do formulário

Esta rotina serve apenas para ilustrar como devemos fazer para acessar todos os componentes de um formulário através de um "for".

var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    ShowMessage(Components[i].ClassName);
end;

Uma utilização para isso poderia ser a seguinte: mudar a cor de fundo de todos os Edits para amarelo.