Firemonkey Grid Control: diseño de una celda en función de un valor (a través de la llamada a la función OnGetValue)

Estoy buscando una solución recomendada para diseñar una celda TGrid que está siendo dibujada por la llamada OnGetValue (que se llama para pintar las celdas a la vista). Para el fondo, una excelente respuesta de Mike, mostró cómo simplemente ...