Suceh nach MailAdressen in Strings

[Sascha_OW]

Hallo,

ich habe folgendes Problem:

ich habe einen String in der ein Text steht in der Mail Adressen drinstehen. Diese Mail Adressen muss ich jetzt rausbekommen.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i,f,x,y :integer;
    zeile, buchstabe:string;
    suchen :boolean;
    wort:string;
begin
   For f := 1 to Memo2.lines.Count -1 do begin
      zeile := Memo2.lines[f];
      For i := 1 to length(zeile) do begin
         buchstabe := zeile[i];
         If buchstabe = '@' then begin
           x := i;
         end;
         While suchen do begin
           For y := x downto 1 do begin
              mail(zeile[y]);
              wort := wort + zeile[y];
           end;
         end;
      end;
   end;
end;

Die Function Mail auch noch:

Delphi-Quellcode:

function mail (text:char): boolean;
 var test : integer;
begin
 If ((ord(text) <=122) and (ord(text) >=65)) or (ord(text) = 95) or (ord(text) = 150) or (ord(text) = 45) then begin
    result := true;
  end else result := false;

end;

so weit habe ich das bis jetzt gemacht nur leider geht das nicht, könnt ihr mir sagen wo bei denkt fehler sit