[Yurk@]

Marchelly, я бы сделал так:

Код:

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
begin
case DBGrid1.fieldbyname('StrID').AsInteger of 
1 :begin 
   DBGrid1.Canvas.Brush.Color := clRed;
   DBGrid1.Canvas.Font.Color := clYellow;
   end;
2 :begin
   еще какие-то цвета
   end;
и т.д.
else
  DBGrid1.Canvas.Brush.Color := clYelow;
  DBGrid1.Canvas.Font.Color := clRed;
end;
end;