Сам решил.
На событии DrawColumnCell:
Код:
if (Column.FieldName = 'val') and (rsinterv.AsString = 'не более') and (rsval.AsString > rsnorm.AsString) then
begin
...
end;
Где, rs - ADOQuery;
val - поле, куда вносятся значения(Таблица БД "Учет");
interv - поле типа varchar, где проставлен интервал норматива("Справочник");
norm - значение норматива("Справочник").