Problema com Data

Bom dia pessoal, meu problema é o seguinte: Estou fazendo um calculo entre duas datas (data2-data1) e salvando na tabela as duas datas e mais o resultado, mas bem gostaria que salvasse no domingo apenas. (ex: data2:=12/12/2008 e data1:=25/11/2008) então o sistema teria que salvar as datas [b:3a40a2ba1d]25/11/2008; 30/11/2008; 1/12/2008; 7/12/2008 e 12/12/2008;[/b:3a40a2ba1d] Bem é um fechamento semanal, tentei usar o DayOfTheWeek vou colocar o codigo fonte abaixo, mas a data soh salta a digita em data1 e data2, poderiam me ajudar? Grato desde já e abaixo o código fonte do botão que faz este cálculo:

[b:3a40a2ba1d]procedure TFcadLongaData.calcula;
Var
I :integer;
dia : array[1..7] of string;
resultado : integer;
n : Tdatetime;
data1, data2 : TDate;
Data : TDateTime;
Begin
data1 := StrToDate(MskInicial.Text);
data2 := StrToDate(MskFinal.Text)+1;
resultado := StrToInt(FloatToStr(data2 - data1));
EdtDias.Text := IntToStr(resultado);
Data := now;
n := now;
dia[1] := ´Segunda´;
dia[2] := ´Terça´;
dia[3] := ´Quarta´;
dia[4] := ´Quinta´;
dia[5] := ´Sexta´;
dia[6] := ´Sábado´;
dia[7] := ´Domingo´;
For I := 1 to resultado do
Begin
If DayOfTheWeek(n)= 7 Then
Begin
n := data1 + I;
edit6.Text := DateToStr(n);
next;
End;
End;[/b:3a40a2ba1d]