что то типо такого только чтоб он перезаписовал данные в DBGrid2 если найдено что либо
VAR
\y1,m1,d1,y2,m2,d2:word;
begin
ADOQuery1.First;
DecodeDate(ADOQuery1.FieldByName('äàòà').AsDateTim e,y1,m1,d1);
DecodeDate(Now,y2,m2,d2);
Repeat
\if (d1 = d2) and (m1 = m2) then ShowMessage('Обнаружен ДР') else ShowMessage('Др не найдено');
ADOQuery1.Next;
Until not ADOQuery1.EOF;
|