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); FechaFutura := IncMonth(FechaFutura,2); showmessage(DateTimeToStr(FechaFutura));
Saluditos