[Drozh]

Код:

 for i := 0 to ComponentCount-1 do
  if Components[i] is TEdit then
   (Components[i] as TEdit).Color := clRed;