procedure TMainForm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
    if Column.FieldName='MYFIELD' then
    begin
      DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
      DBGridEh1.Canvas.Pen.Color:=clRed;
      DBGridEh1.Canvas.Brush.Color:=clRed;
      DBGridEh1.Canvas.Polygon([Point(Rect.Right-6,Rect.Top),Point(Rect.Right-1,Rect.Top),Point(Rect.Right-1,Rect.Top+5)]);
    end;
end;

procedure Tplangrafik.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
 AFont: TFont; var Background: TColor; State: TGridDrawState);
begin

// ячейка 4 = 0 то ячейка 8 окрасить в зеленый цвет,
// ячейка 4 = 1 то окрасить ячейку 8 в красный цвет
if Column.Index = 8-1 then
  case DBGridEh1.DataSource.DataSet.Fields[ 4-1 ].AsInteger of
    0: Background := clGreen;
    1: Background := clRed;
  end;
end;