[D-mon]

Да чё тут примерить...

Код:

procedure TForm2.JvDBgridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if(Column.FieldName='имя поля')then
  begin
   DBGrid1.Canvas.Brush.Color:=clRed;
   DBGrid1.Canvas.Pen.Color:=clRed;
   DBGrid1.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
  end;
end;