Hola anubis,
Si vas a tener que pintar una cantidad arbitrarias de celdas quizás lo que puedas hacer es declarar un conjunto y hacer comparaciones al estilo:
Código Delphi
[-]
if (aRow IN tuConjuntoFila) AND (aCol IN tuConjuntoColumna)
then
Puede ser una alternativa...
El código no es "simple" como lo expuse... pero creo que la idea se entiende.
Saludos,