Cambiar texto y color en cxGrid

[Alexander]

Hola foro.

He tratado de hacer lo siguiente pero nada que me funciona:

Quiero que cuando sea un dato específico me cambie de color y me cambie el texto en la celda, así:


procedure TFrmPlaneador.cxGridDBTableViewGTO_TipoCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
FBounds: TRect;
Cadena : String;
begin
try
FBounds := AViewInfo.Bounds;
ACanvas.FillRect(FBounds);
Cadena := AViewInfo.DisplayValue;
if Cadena = '0' then
begin
ACanvas.DrawText('',FBounds, cxAlignLeft); //Quita el texto
ACanvas.Brush.Color := clCream; // Le pone color al fondo
end;
// ADone := True;
except
end;
end;


Funciona una o la otra pero no las dos al tiempo.

Si no existe ADone := True o es Falso, funciona el cambio de color.
Por el contrario si ADone es True, funciona el cambio del texto.

Gracias por leer el mensaje y por favor si tienen alguna sugerencia de solución o saben que estoy haciendo mal, bienvenidas.

Alexander