[Dead_Gigabit]

Нужно организовать поиск в БД по дате покупки некоего устройства.
БД: Firebird 1.5;
Пишу на Delphi 2009;

в DateTimePicker.OnChange
запрос:

Код:

  DM.ADOQuery1.Active:=false;
  DM.ADOQuery1.SQL.Clear;
  DM.ADOQuery1.SQL.Add('SELECT *');
  DM.ADOQuery1.SQL.Add('FROM "SKLAD"');
  DM.ADOQuery1.SQL.add('WHERE DATEBAY like ''' +'%'+datetostr(DateTimePicker1.Date) + '%''');
  DM.ADOQuery1.Active:=true;

Выдается пустой результат, хотя тестовые значения быть должны кто подскажет чем проблема?