procedure TForm1.DbGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if not (gdFocused in state) then
   begin
     if  FieldName.value = False    then
     DbGrid1.Canvas.brush.Color := clred
  end;
end;

procedure TfAdmSales.SMDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
     if SMDBGrid1.Fields[15].AsString='NF#' then
        begin
        SMDBGRid1.Canvas.Brush.Color:=clred;
        end;
end;

  if not (gdFocused in state) then
   begin
    bla bla bla
   end;

masukan di dbgrid OnDrawColumnCell
 if dbgrid1.fields[1].asstring='false' then
    fbgrid1.canvas.color:=clblue;