Gracias David Esperalta
Realice la siguiente modificación al código y me retorna los días cuando solo no ha transcurrido ni un mes
Código Delphi
[-]
if( DDI <= DDF ) then
DD := DDF - DDI
else
begin
DD := DDF + MonthDays[IsLeapYear(AAF),MMF] - DDI;
MM := MM - 1;
if MM = 0 then
DD:= DaysBetween(FechaI, FechaF)
end;