Parameters.ParamByName('A1').AsDateTime := DDebut.Date-1 ; ?