Cambiar texto y color en cxGrid
 

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í:

Código Delphi [-]
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