Puedes usar la propiedad Components de TForm.
Código Delphi
[-]
for I := 0 to ComponentCount - 1 do
if Components[i] is TTipoDeComponenteAModificar then
TTipoDeComponenteAModificar(Components[i]).Color := clRed
Otra opción sería usar RTTI, y para eso puedes hacer una búsqueda en los foros, ya que el tema se ha tratado en más de una ocasión...
Saludos...