[hermes_32]

Bueno la resta de las 2 fechas te da el número de días entre ellas.

Fecha1 := 14/04/2005;
Fecha2 := 24/04/2005;
FechaIni := Fecha1;

NumDias = Fecha2-Fecha1;

For i := 1 to NumDias do begin
*
*
*
*
FechaIni := FechaIni + 1;
end;

Mas o menos...