AdoQuery1.Filtered не фильтрует

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
  Vcl.DBGrids, Vcl.StdCtrls, Vcl.ComCtrls, {Добавить этот модуль ->}System.DateUtils;
 
type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Q: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private { Private declarations }
    procedure DoSQL(_sql : string; Mode : boolean); //Добавили свой метод выполнения запроса
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
    d : TDate;
begin
 d := DateTimePicker1.Date; //Дата, взятая из DateTimePicker1
//Формируем строку даты так, как того требует Access
 s := Format('#%d/%d/%d#', [MonthOf(d), DayOf(d), YearOf(d)]);
//Выполняем запрос на отбор конкретной даты
 DoSQL('select * from t1 where dt = ' + s, true);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 DoSQL('select * from t1', true); //Запрос на вывод всех записей
end;
 
procedure TForm1.DoSQL(_sql: string; Mode : boolean);
begin
 Q.Close; //Деактивировали ADOQuery
 Q.SQL.Clear; //Очистили строки запроса
 Q.SQL.Add(_sql); //Добавили новый запрос (первый параметр процедуры)
//В зависимости от второго параметра процедуры - разные режимы выполнения запроса
 if Mode then Q.Open else Q.ExecSQL
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var path : string;
begin
 path := ExtractFilePath(ParamStr(0)) + 'BD5.mdb'; //Путь к файлу БД
 Q.Close; //Деактивировали ADOQuery
//Задали строку подключения
 Q.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + ';Persist Security Info=False';
 DoSQL('select * from t1', true); //Выполнили запрос
end;
 
end.