[Radik_Assasin]

Я сделал вот так

Код:

procedure TMainForm.FormShow(Sender: TObject);
var
   y1,m1,d1,y2,m2,d2:word;
begin
DataModule3.BookTable.First;
DecodeDate(DataModule3.BookTable.FieldByName('День рождения').AsDateTime,y1,m1,d1);
DecodeDate(Now,y2,m2,d2);
Repeat
   if (d1 = d2) and (m1 = m2)  then ShowMessage('Обнаружен день рождения') else ShowMessage('Ничего не обнаружено');
 DataModule3.BookTable.Next;
Until not DataModule3.BookTable.EOF;
end;

Программа сравнивает только первую дату в столбце. И если перевести дату на эту дату то срабатывает. А если на другие то нет. Не пойму в чем проблема....