[Страдалецъ]

Так попробуйте:

Код:

 if (RadioButton2.Checked=true) 
 then begin
        DataModule3.AdoQuery2.Active := False;
        DataModule3.ADOQuery2.SQL.Text:='SELECT format(Data,"dd.mm.yyyy") as Data, Puti, Nasvanie_uchastka, Nom_km_n, Nom_pk_n, Nom_km_k, Nom_pk_k, Nasvanie_pribora, Nomer_pribora, F_I_O from GRAFIK where Data=:Date';
        DataModule3.ADOQuery2.Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime;
        DataModule3.ADOQuery2.Active := True;
        end;