Проблема с датой

[scorpi.on]

Есть три числа --- день месяц и год.
Нужно проверить дату на правильность, т.е. проверить существует ли такая.
Задача вроде бы и не сложная, но я ее уже давно не могу сделать.
Нужно учесть количество дней в месяце, високосный год и может что-то другое, если вы это знаете.
Буду очень благодарен листингу решения этой задачи на Delphi.

[LAngel]

uses DateUtils;

Result := IsValidDate(Year, Month, Day);