procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
with Qry do
begin
Close;
SQL.Clear;
SQL.Add('SELECT FECHA_VENCIMIENTO FROM PRODUCTOS');
SQL.Add('WHERE DATEADD("d", :DIAS, FECHA_VENCIMIENTO) = DATE()');
Parameters.ParamByName('DIAS').Value := Dias;
Open;
while not Eof do
begin
ME.Lines.Add(FieldByName('FECHA_VENCIMIENTO').AsString);
Next;
end;
end;
end;