[Resolvido] MessageBox Dinamico e Salto de data

Tenho um codigo para inserir parcelas, e gostaria que ao dar o post fosse exibido um messagebox com o valor de cada parcela lançada.

O codigo que uso é esse:

procedure TForm1.btn1Click(Sender: TObject);
var

cValor, cResiduo: Double;
i, parcela: Integer;
data : Tdatetime;

begin

cValor:= 0;
parcela:= 0;
data := Date;

for i:= 1 to StrToInt(edtParcelas.Text) do
begin
if i = StrToInt(edtParcelas.Text) then
begin

 cValor:= StrToFloat(FormatFloat('########0.00',(StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text))));
 cValor:= cValor * StrToFloat(edtParcelas.Text);
 cResiduo:= StrToFloat(edttotal.Text) - cValor;
 cValor := (StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text)) + cResiduo;
 end else
 cValor:= (StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text));
 parcela:=parcela + 1;

cValor:= StrToFloat(FormatCurr('########0.00',cValor));
data:= data + 30;
frmdm.tbparcelas.Append;
frmdm.tbparcelasValor.AsCurrency:= cValor;
frmdm.tbparcelasData.AsDateTime:= data;
frmdm.tbparcelasParcela.Value:= IntToStr(parcela) + '/' + edtParcelas.Text ;
frmdm.tbparcelas.Post;
end;
end;

Minha ideia é implementar no projeto um dateedit, para o usuario informar o vencimento da primeira parcela. Então também tenho a duvida de como fazer o calculo para os proximos vencimentos.