[roman]

O bien con IncDay de la unidad DateUtils (al menos en Delphi 7):

Código Delphi [-]
Fecha := FechaInicio;

while CompareDate(Fecha, FechaFinal) = LessThanValue do
begin
  {
    operaciones
  }

  // Incrementar un día
  Fecha := IncDay(Fecha);
end;

// Saludos