1:

/[a-zA-Z0-9]{2,}@(([a-zA-Z0-9]{2,}.)[a-zA-Z]{2,3}|\d{1,9}|\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})/i					

1:

/(http:\/\/)?(([a-zA-Z0-9]{2,}.)[a-zA-Z]{2,3}|\d{1,9}|\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})(/[a-zA-Z0-9%\(\)\[\]\{\}\.]+)+(/[a-zA-Z0-9%\(\)\[\]\{\}\.]*/					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

function ValidEmail(const sValue: String): Boolean; 

  function CheckAllowed(const sTemp: String): Boolean; 
  var 
    iFor: Integer; 
  begin 
    Result := False; 
    for iFor := 1 to Length(sTemp) do 
    begin 
      if not (sTemp[iFor] in ['a'..'z','A'..'Z','0'..'9','_','-','.']) then 
      begin 
        Exit; 
      end; 
    end; 
    Result := True; 
  end; 

var 
  iPos: integer; 
  NamePart, ServerPart: string; 
begin 
  Result := False; 
  iPos := Pos('@', sValue); 
  if (iPos = 0) or (Pos('..', sValue) > 0) then 
  begin 
    Exit; 
  end; 
  NamePart := Copy(sValue, 1, iPos - 1); 
  ServerPart := Copy(sValue, iPos +1, Length(sValue)); 
  if (Length(NamePart) = 0) or ((Length(ServerPart) < 4)) then 
  begin 
    Exit; 
  end; 
  iPos := Pos('.', ServerPart); 
  if (iPos = 0) or (iPos >= (Length(ServerPart) - 1)) then 
  begin 
    Exit; 
  end; 
  Result := CheckAllowed(NamePart) and CheckAllowed(ServerPart); 
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if ValidEMail('seti@home.de') then 
    ShowMessage('Gut...') 
  else 
    ShowMessage('Nicht gut... :-p'); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses 
  Masks; 


function ValidEmail(const sValue: String): Boolean; 
begin 
  Result := MatchesMask(sValue, 
    '[A-Z0-9]*[A-Z0-9]@[A-Z0-9]*[A-Z0-9].[A-Z0-9]*'); 

  // * stehen für beliebige Zeichen in beliebiger Anzahl 

  // [A-Z0-9] bedeutet, es muss an der Stelle zwingend 
  // ein Buchstabe (A-Z) oder eine Zahl (0-9) vorhanden 
  // sein 
  // am Anfang, vor und nach dem @, sowie vor und nach 
  // dem Punkt dürfen also keinerlei Sonderzeichen 
  // stehen (darüber könnte man evtl. streiten, weil ich 
  // jetzt nicht weiß, ob eine Adresse wie "?Hallo@du.net" 
  // erlaubt wäre - ich glaube nicht ...) 

  // @ und . sind die Zeichen, die vorkommen müssen 
end;					

1:
2:
3:
4:
5:
6:

uses RegExpr; 

function IsEMailValid(eMail: string): boolean; 
begin 
  Result := ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+', eMail) 
end;					

1:

[\w\d][\w\d\-]+@((\w[\w\d\-]*[\w\d]\.)+\w{2,3}|\d{1,9}|\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:

{------------------------------------------------------------------------------}
// Zählt, wie oft ein bestimmtes Zeichen in einem String vorkommt
{------------------------------------------------------------------------------}

function AnzahlZeichenInString(aString: string; aZeichen: char): integer;

var counter: integer;

begin
   result := 0;
   for counter := 1 to length(aString) do
      if (aString[counter] = aZeichen) then inc(Result);
end;

{------------------------------------------------------------------------------}
// Gibt zurück an welcher Position im String ein Suchzeichen ist (fängt am Ende des Strings an)
{------------------------------------------------------------------------------}

function PosRight(aString: string; aSuchZeichen: Char): integer;

var
   counter: integer;

begin

   result := -1;

   for counter := length(aString) downto 1 do

      if aString[counter] = aSuchZeichen then
      begin
         result := counter;
         exit;
      end;

end;

{------------------------------------------------------------------------------}
// Prüft eine übergebene Emailadresse auf Gültigkeit und gibt zurück, warum sie falsch ist
{------------------------------------------------------------------------------}

function ValidateEmailaddress(aEmail: string): string;

var
   counter: integer;
   tmpString: string;

begin

   result := '';

   // Prüfe die Länge der Emailadresse (xx@yy.de -> mindestens 8 Zeichen)
   if length(aEmail) < 7 then
   begin
      result := 'Länge';
      exit;
   end;

   // Es darf nur EIN mal das @ vorkommen
   if (AnzahlZeichenInString(aEmail, '@') <> 1) then
   begin
      result := '@ darf genau 1x vorkommen!';
      exit;
   end;

   // Es MUSS mindestens EIN mal ein Punkt vorkommen
   if (AnzahlZeichenInString(aEmail, '.') < 1) then
   begin
      result := 'Mindestens ein Punkt erforderlich!';
      exit;
   end;

   // Doppelter Punkt (..) ist nicht erlaubt
   if pos('..', aEmail) > 0 then
   begin
      result := '".." nicht erlaubt!';
      exit;
   end;

   // Prüfung auf Sonderzeichen (auch auf Leerzeichen)
   for counter := 1 to length(aEmail) do
   begin
      if not (aEmail[counter] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
      begin
         tmpString := aEmail[counter];
         if tmpString = ' ' then tmpString := 'Leerzeichen'; // Ausgabe für Anwender sprechender
         result := 'Sonderzeichen "' + tmpString + '" nicht erlaubt!';
         exit;
      end;
   end;

   // vor dem @ muss mindestens zwei Zeichen stehen
   if pos('@', aEmail) < 3 then
   begin
      result := 'Vor dem @ müssen mindestens 2 Zeichen kommen';
      exit;
   end;

   // Erstes Zeichen darf kein . sein
   if (aEmail[1] = '.') then
   begin
      result := 'Darf nicht mit . beginnen';
      exit;
   end;

   // merke Dir den Text ab dem @ bis zum Ende (z.B. "mustermann.de")
   tmpString := RightStr(aEmail, (Length(aEmail) - pos('@', aEmail)));

   // Nach dem @ muss auch ein Punkt kommen
   if pos('.', tmpString) = 0 then
   begin
      result := 'Nach dem @ muss auch ein Punkt kommen';
      exit;
   end;

   // Zwischen @ und letztem Punkt muss mind. 2 Zeichen sein
   if pos('.', tmpString) < 3 then
   begin
      result := 'Zwischen @ und letztem Punkt muss mind. 2 Zeichen sein';
      exit;
   end;

   // Nach letztem Punkt mindestens 2 Zeichen
   if (length(aEmail) - PosRight(aEmail, '.')) < 2 then
   begin
      result := ' Nach letztem Punkt mindestens 2 Zeichen';
      exit;
   end;

   Result := 'Email Korrekt';

end;					

1:

Result := 'Email Korrekt';					

1:
2:
3:
4:
5:
6:
7:
8:
9:

if [ErstePrüfung] = false then
   fehlertext := 'Fehlertext für ersten Fehler' else

   if [ZweitePrüfung] = false then
      fehlertext := 'Fehlertext für zweiten Fehler' else

      if [DrittePrüfung] = false then
         fehlertext := 'Fehlertext für dritten Fehler' else
...