Código Delphi
[-]
doquery1.close;
Adoquery1.sql.text:='select * from MEDICAMENTOS where F_CADUCIDAD < :lafecha + :numerodias';
Adoquery1.Parameters[0].Value := datetimepicker1.date;
Adoquery1.Parameters[1].value := strtoint(edit1.text);
Adoquery1.open;
este es el codigo que pena se daño en el anterior mensaje