var Year, Month, Day : Word; ... DecodeDate(Data[1], Year, Month, Day);
Я не понял Вашего вопроса, но всё же Вам на него отвечу!