Primero, intenta no escribir los mensajes en mayúsculas y de paso revisa la
Guía de estilo.
Hay varias formas de hacer lo que comentas;
Una es como te han dicho, modificando el Redibujado de la celda. Otra es añadiendo los campos al TDataSet (Consulta o tablas) -utoilizando el Click derecho del ratón sobre el componente- y utilizando el evento OnGetText del Field "Calculado"; En este caso basta con cambiar un texto por otro.
--------------------------------------------------------------
type TFieldGetTextEvent = procedure(Sender: TField; var Text: String; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;
--------------------------------------------------------------
Otra opción es utilizar alguna técnica (en los foros se ha comentado muchas veces) para que aparezca un checkbox en la celda en lugar del texto, que también es muy visual.