Realizar un bucle for con fechas!!

[Vales08]

Me disculpo por el error, aca les pongo bien el codigo, no me habia dado cuenta de que se me borro la ultima parte:

Código Delphi [-]
        var
          Proximafecha, UltimoDia, DiaActual:TdateTime;
          hoy:integer;
          dia, mes, anio: Word;

         ...
        hoy:=DayOfTheWeek(Date); // guardo el dia de la semana en el que se ubica la fecha actual
        DecodeDate(Now, anio, mes, dia);
        UltimoDia:=RecodeDate(Date, anio, mes, DaysInMonth(Now));
        // lo que realice aqui es guardar en la variable 'UltimoDia' el ultimo dia del mes

        for Proximafecha:=Now to UltimoDia do    (**)
          begin
                if  hoy=1 then   // Lunes
                  begin
                    DM.DSET_agen_turFECHA.Value:=Now; //Guardo la fecha en la tabla AGENDA
                  end;
                if  hoy=2 then   // Martes
                  begin
                    ProximaFecha:=IncDay(Date,6);
                    DM.DSET_agen_turFECHA.Value:=Proximafecha;
                  end;
                if  hoy=3 then   // Miercoles
                  begin
                    ProximaFecha:=IncDay(Date,5);
                    DM.DSET_agen_turFECHA.Value:=ProximaFecha;
                  end;
                if  hoy=4 then   // Jueves
                  begin
                    ProximaFecha:=IncDay(Date,4);
                    DM.DSET_agen_turFECHA.Value:=Proximafecha;
                  end;
                if  hoy=5 then   // Viernes
                  begin
                    ProximaFecha:=IncDay(Date,3);
                    DM.DSET_agen_turFECHA.Value:=Proximafecha;
                  end;
                if  hoy=6 then   // Sabado
                  begin
                    ProximaFecha:=IncDay(Date,2);
                    DM.DSET_agen_turFECHA.Value:=Proximafecha;
                  end;
                if  hoy=7 then   // Domingo
                  begin
                    ProximaFecha:=IncDay(Date,1);
                    DM.DSET_agen_turFECHA.Value:=Proximafecha;
                  end;
          end;

Gracias.