Помогите понять что не так с функцией StrtoDate

[2dragon2]

Народ подскажите пытаюсь преобразовать данные пишем:
if Message (StrtoDate ( '31.12.8888','DD.MM.YYYY'),yesNo ) != cmYes then break;
Почему он мне показывает DD.MM.YYYY, а если я поставлю год нормальный 2007 функция отрабатывает нормально.

[Den]

Все составляющие даты инвалидируются. 8888 - недопустимое значение
максимум 2100-й год