Поиск по двум датам

begin
 DataModule2.ADOQuery1.Active:= False;
 date1:= Trunc(DateTimePicker1.Date);
 date2:= Trunc(DateTimePicker2.Date);
 DataModule2.ADOQuery1.SQL.Clear;
 DataModule2.ADOQuery1.SQL.Add('SELECT Äàòà, ×àñòîòà, [Òèï ñèãíàëà], Ïîçûâíîé, Ïðèâÿçêà, Ïåëåíã, Èñïîëíèòåëü, Ìåðîïðèÿòèÿ');
 DataModule2.ADOQuery1.SQL.Add('FROM Ðàäèîñåòè');
 
 case ComboBox1.ItemIndex of
 0:begin
    DataModule2.ADOQuery1.Parameters.ParamByName('d1').Value:=date1;
    DataModule2.ADOQuery1.Parameters.ParamByName('d2').Value:=date2;
    DataModule2.ADOQuery1.SQL.Add('Where Äàòà >= :d1 and Äàòà <= :d2');
   end;

DataModule2.ADOQuery1.SQL.Add('Where Дата >= :d1 and Дата <= :d2');

DataModule2.ADOQuery1.Parameters.ParamByName('d1').Value:=date1;
DataModule2.ADOQuery1.Parameters.ParamByName('d2').Value:=date2;