Si necesitas que los pagos se hagan en el mismo día lo mejor es modificar únicamente el mes sin tocar los días (vigilando el año).
Código Delphi
[-]DecodeDate(fecha, dia, mes, anho);
if mes<12 then
mes := mes+1
else
begin
mes := 1;
anho:= anho+1;
end;
fecha := EncodeDate(dia, mes, anho);