Проверка дат

function ValidDate(const S: String): Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO
Result := False;
end;
END