Ошибка в запросе с DateTimePicker

SQLdtp:=' and main.date_analise>= '+DateToStr(DateTimePicker1.Date)+' AND main.date_analise<='+DateToStr(DateTimePicker2.Date);

ADOQuery1.SQL.Add('and main.date_analise>= :d1 and main.date_analise<= :d2');
           ADOQuery1.Parameters.ParamByName('d1').Value:=datetimepicker1.Date;
           ADOQuery1.Parameters.ParamByName('d2').Value:=datetimepicker2.Date;

ADOQuery1.SQL.Add(' and main.date_analise = ' + FormatDateTime('#dd-mm-yyyy#',DateTimePicker1.DateTime));

ADOQuery1.SQL.Add('and main.date_analise>= :d1 and main.date_analise<= :d2');
           ADOQuery1.Parameters.ParamByName('d1').Value:=datetimepicker1.Date;
           ADOQuery1.Parameters.ParamByName('d2').Value:=datetimepicker2.Date;

 myDate1:= Datetimepicker1.Date;
               FormatSettings.DateSeparator  := '/';
               //edit6.Text:=FormatDateTime('dd/mm/yyyy', myDate1);
               SQLdtp:=' and main.dr>'+'#'+Datetostr(mydate1)+'#';
               mydate2:=Datetimepicker2.Date;
               SQLdtp:=SQLdtp+' and main.dr<'+'#'+Datetostr(mydate2)+'#';
               edit6.Text:=SQLdtp;

var date1, date2 : TDateTime;
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from [ВашаТаблица] where main.date_analise>= :d1 and main.date_analise<= :d2');
   date1 := trunc( datetimepicker1.Date );
   date2 := trunc( datetimepicker2.Date );
   ADOQuery1.Parameters.ParamByName('d1').Value:= date1;
   ADOQuery1.Parameters.ParamByName('d2').Value:= date2;
   ADOQuery1.SQL.Open;
end;