Como faço para Cresenta Nº de Dias em Relação uma Data ??

Ai pessoal tudo bem?
Ta quase pronto...só falta a data......E o seguinte fazer uma venda a prazo ...Informando o Numero de parcela no ´edNumParcela.Text´ e Numero de dias(Prazo) no ´edPrazo.Text´....
e depois click no Botão e ir para StringGrid........

Ex:
Foi digitado a quantidade de Parcela no edNumParcela.Text= 3...
Prazo é de 15 Dias edPazo.Text= 15 ...

1º Parcela 01/15/2004
2º Parcela 01/30/2004 // Eu quero que fica assim tem Como ????
3º Parcela 01/14/2004

Como eu Faço para acresenta a quantidade de Dias, informada no ´edPrazo.Text´ p/ StringGrid ...em relação a data do Computado..

Codigo abaixo...............

procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
for I:=1 to strtoint(edNumParcela.Text) do
begin

StringGrid1.RowCount:=StringGrid1.RowCount +1 ;
StringGrid1.Cells[0,I]:=inttostr(i)+´°´+´ Parcela ´;
StringGrid1.Cells[1,I]:= DateTostr(Date); // O que eu Faço ???????
end;
end;

[ ]s...Tatu