фильтрация по дате

[delfin07]

мне надо от фильтровать все данные по дате
Label6->Caption=DateToStr(Now());
Label7->Caption = Label6->Caption.Delete(7,4);
Edit4->Text=Label7->Caption;
ADOTable1->Filtered = false;
ADOTable1->Filter = "data_r like"+QuotedStr("%"+Edit4->Text+"%");
ADOTable1->Filtered = true;
я нахожу какое число сегодня , удаляю год что бы узнать у какой записи сегодня день рождение по фильтру но он не пашет