Suma de fechas en un For con un DateTimePicker(los días son inconstantes)

[Edwardfeliz]

Saludos a todos, no se si escribi el titulo correctamente pero aqui va mi caso:

tengo un For que agrega una secuencia de fechas a un String Grid, utilizando un DTP hago lo siguiente:

Código Delphi [-]
For  Lineas := 1 to cuotas  +1  do
  Begin
  dtp.Date := dtp.date +30;
  Cuadro.Cells[0,Lineas] := InttoStr(Lineas);
  Cuadro.Cells[1,Lineas] := FormatDateTime('dd/mm/yyyy', dtp1.Date);
End;

(Solo anexe parte del código donde creo que es lo relevante)
Fecha de Hoy 14/08/2017
Pero el resultado que me aparece es:
13/09/2017
13/10/2017
12/11/2017
12/11/2017
Etc

que resultado espero?
14/09/2017
14/10/2017
14/11/2017

y fuera mucho mejor si me sumara otro dia porque la idea es que sea una fecha de vencimiento de la cuota.

Espero haberme explicado bien.
Gracias de antemano.