Sigo sin ver la relación, si además de recorrer todos los componentes y evaluar los del tipo TShape, le añadimos que cumplan cierta condición, tampoco tiene nada que ver el nombre que tengan en si la cumplen o no.
Antes de hacer el cambio bastará con aplicar un If.
If Condicion = True then
Lo_Que_sea;
Un Saludo.
|