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

Можно например так:

Код:

if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where Дата = '''+DateToStr(DateTimePicker1.Date)+'''');

но я предпочитаю пользоваться параметрами:

Код:

if form_otchet.ComboBox1.ItemIndex=0 
then begin
       DataModule2.ADOQuery1.SQL.Add('where Дата = :Date');
       DataModule2.ADOQuery1.Parameters.ParamByName('Date').Value := DateTimePicker1.Date;
       end;