Запрос по дате

[DaMadQuest]

Доброго времени суток всем. У меня в БД, созданной в InterBase, существует две таблицы: CGP1 и SPR_GROUP. Они связаны между собой. Содержат следующие данные:
CGP1 (подразделение):
- ID(первичный ключ);
- DATA(вносимая дата);
- ID_GROUP(внешний ключ на таблицу SPR_GROUP)
- PLAN
- FAKT
...

SPR_GROUP (Справочник групп асбеста):
- ID (первичный ключ)
- NAME (название группы)


Мне нужно за текущую дату вывести записи для каждой группы, то есть я выделяю группу из справочника групп и именно для нее мне показываются записи.

Код запроса:
select * from CGP1
where ID_GROUP = SPR_GROUP.ID and DATA='+#39+DateToStr(MainForm.DateT imePicker1.Date))+#39);

значение даты берётся из DateTimePicker1

в Delphi у меня связаны эти две таблицы через MasterSource