[*Caro*]

Hola amiguito tcp, creo que no sería necesario volverle a poner formato ni tampoco descomponerlo con DecodeDate, ya que ambas funciones te reciben un DateTime y te devuelven un DateTime.

Código Delphi [-]
var
 FechaFutura : TDateTime;
begin
 FechaFutura := IncYear(Date,1); //Incrementamos un año
 FechaFutura := IncMonth(FechaFutura,2); //Incrementamos 2 meses al resultado anterior
 showmessage(DateTimeToStr(FechaFutura));

Saluditos