Si, gracias, pero....
...aunque no había pensado en la
recursividad 
(no me gusta por la poca transparencia primero del algoritmo, y después de la sobrecarga de memoria ram y de pila al almacenar cada llamada con el estado de cada una de las variables etc, etc), lo había imaginado implementado dentro de un
for recorriendo todos los controles del
Form, pero como digo los hay que no tienen la propiedad color, como p.e. el
TButton, con lo que la línea del código muy amablemente ofrecido:
Código Delphi
[-]
TButton(Ctr.Controls[nIdx]).color := clred;
me dá el correspondiente error de identificador no declarado.
Además en este algortimo creo que nunca se llega al caso base ¿no?.
De todos modos, sigo mirando como hacerlo y mientras esperando alguna ayuda.
Muchas gracias a todos y especialmente a EduarCol.
