Delphi - fecha de vencimiento

si mi fecha de entrada, ejemplo
15/12/2005 en mi vencimiento tengo 1, pero despues de 14 dias quiero que me ponga en el campoce vencimiento el numero 2 despues de 28 me ponga el 3, esto es cuando el cliente valla por su mercancia y se paso de la fecha, o sea de los 14 dias, automaticamente me ponga el numero 2, ojala alguien lo entienda y me ayude
gracias

Lo q podes hacer es crear variables o constantes q lleven esos rangos y lo validas por medio de código sino creas una tabla con esos datos y lo validas desde el código:ej. If dia3=tmercaderia.fieldbyname('dia').String then