Text durchsuchen

[Thomas F]

Hallo,

ich möchte ein Memo-Textfeld , in das eine Textdatei geladen wurde, nach einem Zeichen durchsuchen.
Funktioniert auch , aber immer nur ein Zeichen.
Leider findet er immer nur das erste Zeichen und ich blick leider nicht durch ,wie man die Suche fortsetzen kann.
Es sollen alle im Text befindlichen Zeichen gefunden werden, ich möchte damit die Email-Adressen im Text speichern

Delphi-Quellcode:

memo1.Lines.LoadFromFile(Datei1);
a := pos('@',memo1.text);
memo2.lines.strings[i] := inttostr(a);
.
.