DataModule1.GaranTalonADOTable.Filter := 'DateGaran>=' + quotedstr(DateToStr(d1)) + ' AND DateGaran<=' + quotedstr(DateToStr(d2));