Recomiendo el método de Marcos ya que FindComponent usa él mismo un ciclo que recorre las componentes hasta encontrar una con el nombre indicado de manera que se estaráa repitiendo el mismo ciclo por cada iteración del ciclo for externo.
Lo único es que
(Components[nConta] as TShape).brush.Color:=ClGreen;
quedaría un poco mejor así:
TShape(Components[nConta]).brush.Color:=ClGreen;
ya que el operador as invlucra una llamada implícita al operador is innecesaria ya que se hace previamente.
// Saludos
|