Calcular numero de dias entre dos fechas

[alej.villa]

oscarac en el codigo que me pasaste podrias explicarme ¿la variable x es de tipo TDateTime? y otra cosa cuando dices if (Weekof (FechaInicial + incremento) <> 1) or (Weekof (FechaInicial + incremento) <> 7) Then
inc(sumarDias)
Inc (Incremento)
¿esto debe llevar un else? y ¿las dos comparaciones son de la fecha inicial?
el mensaje de error que me da es tipos incompatiples en el ciclo for debido a que declaro la x como integer.