Q:  How can I verify if a string is a valid date?

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