Ошибка, как всегда, в прокладке... но это все лирика. А теперь проза.
Видимо, у тебя в бд в строковом поле хранится день и месяц рождения в формате DD.MM.YYYY и ты пытаешься найти соответсвующие записи. Вообще, можно просто использовать встроенные функцит сервера MONTH и DAY. Но мы не ишем легких путей
Код:
var
S : String;
begin
S := Format('%2d.%2d',[DayOf(Date),MonthOf(Date)]) + '%';
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('SELECT * FROM Таблица1');
ADOQuery.SQL.Add('WHERE data_rozhdenia like ''' + S + '''');
...
end;