Bucle While para Comprobar Fecha en Base de Datos

[Edwardfeliz]

Saludos a todos aca!
he estado mirando este club y me gusto su forma de trabajar, los felicito!
Ya se fijaron de que soy nuevo acá, no soy experto pero espero que lo poco que pueda aportar ayudar en algo!

Y por si acaso 'Leí la guía de estilo' XD

entremos en materia:
Tengo un bucle para comprobar un dato de una columna de registro para que me diga los articulos que estan para reordenar con el siguiente bucle:

Código Delphi [-]
begin
DM.AQProductos.First;
While not DM.AQProductos.Eof Do
Begin
if DM.AQProductos.FieldByName('Reordenar').Value <= Fconfiguracion.DBEreordenar.text
then
Memo1.Lines.Add(DM.AQProductos.FieldByName('Descripcion').Text+' Para reordenar'+#13#10);
DM.AQProductos.Next;
end;

de la misma forma en el Form de configuración tengo otro campo que se llama fecha de vencimiento,
Como hago otro bucle para comprobar que la fecha de vencimiento le quedan de hoy a 15 días para llegar?
y que pueda poner la cantidad de días en configuración.

-- Base de datos Access --
-- Componentes Ado --

Saludos a todos!