Ya veo el problema, Caral, eres un analitico, resulta que Fecha es de tipo Date, por lo tanto lo que necesitamos es calcular la fecha de vencimiento y no los dias.
Bueno, pues veamos como se hace esto.
Tal vez cambiando esta linea
Código Delphi
[-]
Query1.ParamByName('fecha').AsDateTime := Table1.FieldByName('Sectores').AsDateTime + StrtoInt(Edit4.Text);
Prueba con eso y nos comentas por favor.
Salud OS.