[Ildar-tsr]

Это должно помочь:

Код:

with ADOQuery1 do
  begin
    Close;
    SQL.Text:= 'select r.data_obnarug, r.defect from rels r where r.data_obnarug = :par';
    Parameters.ParamByName('par').DataType:= ftDateTime;
    Parameters.ParamByName('par'):= FormatToDate('dd.MM.yyyy',DateTimePicker1.Date);
    Open;
  end;

Когда вы присваиваете запрос с параметром кверику, он автоматически добавляет этот параметр в список, остается только задать тип и значение перед открытием.
P.S. И не забывайте закрывать кверики