[jafera]

Gracias a todos, lo solucioné así:

Código Delphi [-]
 
if DataCol = 2 then
begin
       if Pos('X', F_ModulDades.Codis_CCODI.Text ) > 0 then
       begin
              TDrawGrid(sender).Canvas.Font.Color  := clRed;
              TDrawGrid(Sender).Canvas.Brush.Color:=clYellow;
              TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
       end;
end;

Voya probar tu metodo ecfisa, a ver si rula

Saludos

Josep