Como Pintar Solo la Celda y No Toda la Columna de la Celda de un dbGrid??

[AGAG4]

Código Delphi [-]
 if not PVentaCheck then 
    if (Column.Index = 3) and (State=[]) then begin
      gridFac.Canvas.Brush.Color := clBlue; //Color de fondo
      FillRect(gridFac.Canvas.Handle, Rect, gridFac.Canvas.Brush.Handle);
      gridFac.Canvas.Font.Color := clRed; //Color de fuente
      gridFac.Canvas.TextOut(Rect.left + 2, Rect.top + 2, Column.Field.AsString);
      PVentaCheck:=true;
    end;

Cambie el Estado de la Celda y el número de Columna que quiero que me cambie de Color, Agregue el Código que me proporciono MFCORRAL para pintar la Celda Si me funciona Corrrectamente pero si abro un Nuevo registro me la DESPINTA y vuelve a su estado normal, es lo que quiero evitar que haga eso, quiero que quede el Color que le pongo al cumplirse la condición, siendo que la condicion la hago en el evento OnColExit de la Columna #3.