calculos con fechas

[Jheysson13]

gracias a los dos por las rutinas de para poder sumar la fechas esto me servira para mi tarea. es justo lo que estaba buscando gracias.

en cuanto a la segunda parte perdon por no haber mostrado el codigo lo pense justo despues que envie la pregunta y ya no tube mas tiempo para mostrarlo, pero aki le muestro a ver si me entienden:

Código Delphi [-]
var presente:tdatetime;
var mes,dia,ano:word;
begin
presente:=now;
decodedate(presente,ano,mes,dia);
fecha1.Caption:=inttostr(dia);
fecha2.Caption:=inttostr(mes);
fecha3.Caption:=inttostr(ano);
     
if fecha2.Caption<='4' then
begin n:='1'; 
end else
if ((fecha2.Caption>'4') and (fecha2.Caption<='8')) then
begin n:='2'; 
end else
if  (fecha2.Caption>'8')then begin
n:='3'; 
 end;

en las dos primeras condiciones todo funciona bien, pero cuando el mes supera el numero 9 me parece que toma el valor de 0 (cero) y vuelve a contar desde 1 en ves de 10,11,12 que serian octubre,nov,dic. por lo que no obtengo los resultados a partir del mes 10.
espero entiendan esto.
gracias de nuevo.