[vtdeleon]

Saludos
Podrias usar esto, en caso de que el campo sea Integer:

Código Delphi [-]
Begin
if (State = []) then begin
    with dbgrid do begin
      if (Column.Index=1) then
        case Columns[1].Field.AsInteger of
        0:Canvas.Brush.Color := clRed
        1:Canvas.Brush.Color := clGreen
        ....
        ....
        end;//Case
      DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;//With
  end;//If
end;