DateTimePicke ' Fecha Pago saber Fecha vencimiento'

[BuRtOn]

Saludos amigos, necesito una ayudita en lo que voy a plantear....

Tengo una base de datos en paradox, donde almaceno FechaPago, y Fechavencimiento, que corresponden al programa de un gimnasio, y esto me controla, cuando el cliente paga, y cuando se le vence....la duda es la siguiente es que capturo la Fecha de pago de la siguiente forma [hay que tener en cuenta que este codigo lo tengo en el evento OnChange de un DateTimePicker:

Código Delphi [-]
procedure TfrmPagosCliReg.dtppagoChange(Sender: TObject);
begin
dbedtfechapago.Text:= DateToStr(dtppago.date);
dbedtfechavenci.Text:=DateToStr(dtppago.Date+1);
end;

entonces cuando selecciono la fecha con el DateTimePicker, la paso inmediatamente a un DBEdit, pero lo que quiero hacer, es lo siguiente:

dd mm aaaa
Fecha pago : 08 06 2008


dd mm aaaa
Fecha vencimiento : 08 07 2008


Y si se pueden dar cuenta, el +1 en la fecha del DBEdit, era para ir sumandole un mes a la fecha que yo escogiera, pero le suma es al dia, y otra cosa que pense, es como hacer cuando pase lo siguiente:



dd mm aaaa
Fecha pago : 01 12 2008


dd mm aaaa
Fecha vencimiento : 01 01 2009


el problema aqui es que cuando la fecha de vencimiento, cambie de año, y el mes sea 01, por que si lo hago con el metodo que lo intente de hacer quedaria erroneo, ya que cuando llegue al mes le sumaria 1, pero entonces cuando este en el mes 12, me le va a sumar uno y quedaria en mes 13, en vez de quedar en mes 01 que es el correcto....


espero que me puedan colaborar, no se manipular bien, las operaciones con las fechas, y esto es nuevo para mi...muchas gracias a todos...