.ADOTable1.filter:='Дата начало>='+DateToStr(DateTimePicker1.Date)+'and Дата начало<='+DateToStr(DateTimePicker2.Date);