ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='SELECT * FROM '+PageControl1.ActivePage.Caption+' WHERE Сроки исполнения < '+DateToStr(d1)+''; ADOQuery1.Open;