Проверка корректности даты

[Oleg Romanchuk]

Добрый день!
Есть какая нибудь функция которая проверяет корректность даты?
Смысл в том, что бы проверить корректность даты, прежде чем добавить ее в БД

Блок исключительных ситуаций не работает:

procedure TMainForm.N1111Click(Sender: TObject);
var
  d,m,y:Word;
  date:TDate;
begin
  try
  Date:=StrToDate(DateBeginEdit.Text);
  DecodeDate(Date,y,m,d);
   except
     ShowMessage('');
   end;
end;

Почему?

[Пепел Феникса]

а вы не под отладкой проверяйте, либо нажимайте continue.
тысячу раз говорилось про это.

[artemavd]

Компонент DateTimePicker тебе в помощь.

[Oleg Romanchuk]

Во... Спасибо большое!