Не красится dxDBGrid при использовании запроса

[Proximus]

Всех приветствую. Не могу понять в чем проблема: существует программа на Delphi 7, работающая с базами MS SQL. Текущая задача заключается в том, чтобы выявлять повторяющиеся записи, вносимые пользователем в БД и выделять их в таблице другим цветом. С выявлением повторов и закраской dxDBGrid(использую компонент ввиду некоторых особенностей программы) по отдельности никаких проблем не возникает. Ошибка появляется именно когда пытаешься совместить это в программе.

  z:= FormatDateTime('dd.mm.yyyy', quGridDATA_ZAYAVKI.AsDateTime -3);
  r:= StrToDate (z);
 ADOQuery.SQL.Clear;
 ADOQuery.SQL.Add('Select ID_UL1, DOM1, DATA_ZAYAVKI From ....... Where (ID_UL1 =' + IntTOStr(quGridID_UL1.AsInteger) + ') AND (DOM1=' + DBEdit1.Text + ') AND (DATA_ZAYAVKI BETWEEN :dt and :dtt)');
 ADOQuery.Parameters[0].Value := FormatDateTime('yyyy.mm.dd',r);
 ADOQuery.Parameters[1].Value := FormatDateTime('yyyy.mm.dd',quGridDATA_ZAYAVKI.AsDateTime);
 ADOQuery.Open;
 if ADOQuery.RecordCount > 1 then
  begin
 ShowMessage ('Повтор')   //например;  
  end;

Для закраски обрабатываю OnCustomDrawCell:

If ANode.Values[Имя_поля.Index] = значение then
  AFont.Color := clRed;

По отдельности каждая процедура работает как надо, при совместном использовании вылетает ошибка в программе: "Project raised exception class EOleException".
Не могу понять почему так Подскажите из-за чего это происходит и как это обойти. Зарание спасибо.

[soleil@mmc]

и чего?
этот мега-код дергается на каждую запись в гриде/датасете?
нипанятна
нужно писать в каких событиях работают эти куски кода

встречное предложение:
переписать запрос, на основе которого строится датасет и соот-но дбгрид с отрисовкой, так чтобы уже в самом датасете содержалась инфа о кол-ве повторяющихся записей
тогда в обработчике отрисовки грида нужно будет только проверить условие > 1 или нет и не городить весь этот огород (будет работать быстро и без проблем)

[Proximus]

нужно писать в каких событиях работают эти куски кода

Код запроса "дергается" при нажатии на кнопку, которая находится на другой вкладке вместе со всеми полями для ввода данных в БД. Так сделано для проверки налету повторяющихся записей и указания на это пользователю.
p.s повторными записи считаются если повторяются более 1 раза за 3 дня с момента занесения

[soleil@mmc]

вот здесь не хватает апострофов

 AND (DOM1= ''' + DBEdit1.Text + ''' ) AND (DATA_ZAYAVKI

[Proximus]

вот здесь не хватает апострофов

Теперь вроде работает ... Мда.. все дело было в апострофах
А я уж вешаться хотел )) Большое спасибо.