[Yurk@]

http://www.google.com/codesearch?q=D...BE%D0%B4%D0%B0
Декодируешь дату на переменные и проверяешь с помощью
if ...(проверка даты и месяца)... then
begin
if MessageDlg('Введена неверная дата', mtWarning, [mbOK,mbCancel],mrOK)=mrOK then (повтор ввода) else (выход)
end;