delphi验证email地址的正则表达式验证function

user PerlRegEx;

function CheckEmail(EmailAddr: string): Boolean;//验证Email
var
PerlRegEx: TPerlRegEx;
begin
PerlRegEx := TPerlRegEx.Create(nil);
PerlRegEx.Subject := EmailAddr;
PerlRegEx.RegEx := '\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*';
Result := PerlRegEx.Match;
PerlRegEx.Free;
end;