Можно скомбинировать формирование запроса. Поскольку имена таблиц нельзя задавать параметром, то часть запроса собираем как текст, а дальше параметром задаем дату:
Код:
ADOQuery1.SQL.Text:='SELECT * FROM '+PageControl1.ActivePage.Caption+' WHERE [Сроки исполнения] < :Date';
ADOQuery1.Parameters.ParamValues['Date'] := d1;
ADOQuery1.Open;
Так заработает?