TPerlRegEx - Check einer E-Mail Adresse

[Sereby]

Hallo Leute,

ich suche eine Möglichkeit den eingegebenen text (E-Mail Adresse) mit RegEx zu validieren.

Delphi-Quellcode:

function IsValidEmail(const Value: string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.RegEx := '/([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)/';
    reg.Subject := Value;
    Result := Reg.Match;
  finally
    reg.Free;
  end;
end;

nur wenn ich dann meine E-Mail adresse prüfen möchte ist Reg.Match False.
Was ist daran falsch? Diesen RegEx habe ich von einer Microsoft Seite.. dort steht folgendes im Javascript Code

Code:

hfEmailRegex = /([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)/;

Von daher müsste der ja richtig sein.
Was mach ich falsch ^^?

MfG Sereby