Decode e EncodeDate

Var Year, Month, Day, Hour, Min, Sec, MSec: Word;
Var Hoje, Ferias : TDateTime;
Hoje:= StrToDate (EditData.Text);
DecodeDate (Hoje,Day,Month,Year);
Ferias := EncodeDate(StrToInt(Day),StrToInt(Month), StrToInt((Year)+1));

Ele diz que não posso converter String para Word, Não estou entendendo?

quero pegar o ano da data e acrescentar +1.

Logo, digo a var HOJE que é .....Text
Ai, quero dizer q ferias é igual a data indicada + 1 ano, depois vou armazena a FERIAS em um BD

Por favor, c souber um jeito melhor. mande para mim !