用简单的delphi的自带的字符串处理函数验证输入的邮箱格式的正确性