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