Фильтрация: вывести в DbGrid только данные с подходящими датами (интервал задается через Datetimepicker-ы)

Query.Parameters[0].Value:= Datetimepicker1.Date;
Query.Parameters[1].Value:= Datetimepicker2.Date;

procedure TForm1.BitBtn1Click(Sender: TObject);
var filtr:string;
begin
ADOTable1.filtered:=false;
filtr:='';
  filtr:= 'DATA between '+  #39 + DateTimePicker1.date + #39 + 'and' + DateTimePicker2.date+ #39 ;
 
adoTable1.Filtered:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var filtr:string;
begin
ADOTable1.filtered:=false;
ADOTable1.filter:= 'DATA between '+  #39 + DateToStr(DateTimePicker1.date) + #39 + ' and ' + DateToStr(DateTimePicker2.date)+ #39 ;
 
adoTable1.Filtered:=true;
end;

'DATA between ''' + DateTimePicker1.date

'DATA between ' + #39 + DateTimePicker1.date + #39

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 dateNach, dateKon:TDate;
begin
    with ADOQuery1 do
     begin
        Close;
        active:=false;
       SQL.Clear;
        SQL.Add('Select * from smo1 ');
       SQL.Add('Where Data between :DateNach -1 and :DateKon');
       Parameters.ParamByName('DateNach').DataType:= ftDateTime;
      Parameters. ParamByName('DateKon').DataType:= ftDateTime;
      Parameters.  ParamByName('DateNach').Value:= DateTimePicker1.Date;
     Parameters.   ParamByName('DateKon').Value:= DateTimePicker2.Date;
        Open;
        active:=true;
        if RecordCount = 0 then ShowMessage('Çàïèñåé çà äàííûé ïåðèîä íåò!!!');
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 dateNach, dateKon:TDate;
begin
    with ADOQuery1 do
     begin
        Close;
        active:=false;
       SQL.Clear;
        SQL.Add('Select * from smo1 ');
       SQL.Add('Where Data between :DateNach -1 and :DateKon');
       Parameters.ParamByName('DateNach').DataType:= ftDate;
      Parameters. ParamByName('DateKon').DataType:= ftDate;
      Parameters.  ParamByName('DateNach').Value:= DateTimePicker1.Date;
     Parameters.   ParamByName('DateKon').Value:= DateTimePicker2.Date;
        Open;
        active:=true;
        if RecordCount = 0 then ShowMessage('Çàïèñåé çà äàííûé ïåðèîä íåò!!!');
end;
end;