[ННС]

Здравствуйте! Вот опять пришла за помощью. Пыталась сделать опять запрос. по другой таблице, но это в принципе не имеет никакого значения. Сам результат важен. Когда выбираю конкретную дату вообще никак не реагирует

procedure TForm11.Button1Click(Sender: TObject);
  var
   SQL: String;
begin
    if (RadioButton1.Checked=true) then
 begin
    DataModule3.DataSource8.DataSet:=DataModule3.Predupregdenija;  //выбираем период все
 end;
    if (RadioButton2.Checked=true) then
 begin
     DataModule3.AdoQuery9.Active := False;
     SQL := 'SELECT format(Data,"dd.mm.yyyy") as Data,Nomer_predupregdenija,Puti,Nasanie_uchastka,Nom_km_n,Nom_pk_n,Nom_km_k,Nom_pk_k,Vrema_nach_rabot,Vrema_konc_rabot from Predupregdenija';
     SQL := SQL + ' where Data=:Date';
     DataModule3.AdoQuery9.SQL.Text := SQL;
     DataModule3.AdoQuery9.Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime
     //DataModule3.AdoQuery9.Active:=true;
      end;
  if (RadioButton3.Checked) then
 begin
  DataModule3.AdoQuery9.Active:=false;
  DataModule3.AdoQuery9.SQL.Text:='SELECT * FROM Predupregdenija WHERE (DATA>= :D1) AND (DATA<=:D2)'; //выбираем период с какого по какое число
  DataModule3.AdoQuery9.Parameters.ParamByName('D1').Value:=DateTimePicker2.DateTime;
  DataModule3.AdoQuery9.Parameters.ParamByName('D2').Value:=DateTimePicker3.DateTime;
  DataModule3.DataSource8.DataSet:=DataModule3.AdoQuery9;
  DataModule3.AdoQuery9.Active:=true;

 end;
 end;

Посмотрите пожалуйста, где опять я накуролесила