prueba con:
Código Delphi
[-]
showmessage(floattostr(trunc((((fecha1 - fecha2) - (7-DayOfWeek(fecha1 .date)))/7)+1)));
donde fecha1 y fecha2 son tdatetime
y suponiendo que el inicio de la semana en el domingo, tengo entendido que DayOfWeek da esto por hecho ya