También puedes actuar sobre el campo en concreto aprovechando su evento
OnChange.
Código Delphi
[-]Vencimiento.Value:=MiCampoFecha.Value * nMeses * 30;
nMeses lógicamente sería una variable en donde se le pediría al usuario que introdujera el número de meses, también sería conveniente controlar que la fecha no sea nula.
Un Saludo.