Системное время

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=DateToStr(Now);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:='SELECT ФИО.Номер_мес FROM ФИО';
ADOQuery1.Active:=true;
Label2.Caption:=DateToStr(ADOQuery1.FieldByName('Номер_мес').AsDateTime);
if Label1.Caption=Label2.Caption then
begin
ShowMessage('Сегодня деньро у'+DateToStr(Now));
end;
if Label1.Caption<>Label2.Caption then
begin
ShowMessage('Сегодня нет деньро');
end;
end;

while not Query.Eof do begin
  // манипуляции с данными
  Query.Next;
end;

dat:=datetostr(now);
while not(DM.ADOQuery3.eof) do
Begin
if DM.ADOQuery3dob.Value = strtodate(dat) then
ShowMessage(DM.ADOQuery3fio.Value+#13+Datetostr(DM.ADOQuery3dob.Value));
DM.ADOQuery3.Next;
End;

    while not (ADOTable2.Eof) do begin
  For i:=1950 to Year do
   begin
    dat:='#'+IntToStr(i)+'/'+IntTOStr(Month)+'/'+IntToStr(day)+'#';
    ADOQuery2.SQL.Text:='select * from people where dob=' + dat;
    ADOQuery2.Active:=true;
    if ADOQuery2dob.Text<>'' then
    ShowMessage('Сегодня день рождения у '+#13+ADOQuery2fio.Text);
    ADOQuery2.Next;
   end;
    ADOQuery2.Active:=false;
    ADOQuery2.SQL.Text:='select * from people where (group='''+gru+''')';
    ADOQuery2.Active:=true;
    exit;
  end;

while not (ADOTable2.Eof) do begin //Что это за таблица? Она более не встречается. Зачем её перебирать? 
  For i:=1950 to Year do //Предлагаете 60 итераций вместо одного вызова? А почему именины тех, кому за 60 годков решили выкинуть?
  begin
    dat:='#'+IntToStr(i)+'/'+IntTOStr(Month)+'/'+IntToStr(day)+'#'; //"жесткий" формат даты предлагете?  это не всегда может работать
    ADOQuery2.SQL.Text:='select * from people where dob=' + dat; //Игнорируете переменные
    ADOQuery2.Active:=true; //А где предварительное закрытие датасета? И это в цикле-то ...
    if ADOQuery2dob.Text<>'' then //Проверка существование записи и заполнения поля делается по другому
      ShowMessage('Сегодня день рождения у '+#13+ADOQuery2fio.Text);//Вместо того, чтобы показать список именниников, выкидываете по одному окну на каждого? А если их 100?
    ADOQuery2.Next; //Отлично, есть Next. А где парный ему while ?
  end;
  ADOQuery2.Active:=false;
  ADOQuery2.SQL.Text:='select * from people where (group='''+gru+''')'; //это что?
  ADOQuery2.Active:=true;
  exit; //А это для чего?
  //Где вызов Next, раз уж мы ADOTable2 крутим? Бесконечный цикл.
end;