Hola microbiano.
No se entiende bién lo que deseas hacer, por lo que veo pareciera que deseas obtener los meses entre dos fechas incluyendo los meses de la fecha incial y final....
Si es así podrías hacer:
Código Delphi
[-]
uses DateUtils;
function Lapso(const f1, f2: TDate): Integer;
begin
if (YearOf(f1)=YearOf(f2))and(MonthOf(f1)=MonthOf(f2)) then
Result:= 1
else
Result:= MonthsBetween(f1, f2) + 2;
end;
Pero creo que debes explicar con más detalle cuál es el resultado que pretendes obtener.
Saludos.