DataModule2.ADOTablepacient.Filter:='ДР between ('+DateToStr(DateTimePicker3.Date)+') and ('+DateToStr(DateTimePicker4.Date)+')';