Pasar de tipo WORD a tipo STRING

procedure TForm1.Button1Click(Sender: TObject);
var
mes, dia, ano :Word;
begin
decodedate(datetimepicker1.date , ano, mes, dia);
datetimepicker1.date := encodeDate(ano, mes, DaysInAMonth(ano, mes));

showmessage(inttostr(ano)); // aqui esta la solucion
end;