формат даты

Сразу прошу пардону за вопрос. Вчера был день рождения - голова не соображает.
Если видели мой проект фитнеса то поймете о чем дальше речь.
На главной форме есть таблица где отражаются дни рождения текущего месяца.
Пользователю лень контрлировать наличие дней рождения за текующую дату - попросили вывсети какое либо сообшщение.
Сам механизьм я реализовал но действует только в том случае когда совпадает адже год - что не есть правильно.
В отдельных запросах SQL проблем нет но не могу в скрипте сообразить чтоб проверял день-месяц из таблицы клиентов (день рождения) с текущей датой.
существующий скрипт.

var
   Timer: TTimer;
procedure Main_OnShow (Sender: string; ACol, ARow: Integer; Action: string);
var
   t: string;
   sDate: string;

begin
sDate := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', now) + '"';
t:= SQLExecute('SELECT count(id) FROM klient WHERE (birth ='+ sDate +');');
    if t>'0' then
     begin
     Timer := TTimer.Create(nil);
     Timer.OnTimer := @OnTimer;
     Timer.Interval := 10000;
     Timer.Enabled := True;
     birth.ShowModal;
     end
else
end;

procedure OnTimer (Sender: TObject);
begin
   Timer.Enabled := False;
    birth.Close;
    Timer.Free;
end;

Подскажите кто может как проверять исключить из проверки год.
Заранее благодарю и  поймите правильно - праздновал денюху - неделю буду притормаживать