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