email в Memo

[demon9992]

В мемо есть строчки примерно такого содержания

src="http://status.mail.ru/?sorlag-wins@mail.ru&9x9"
src="http://status.mail.ru/?nelxalturina@mail.ru&9x9"
src="http://status.mail.ru/?striver2009@mail.ru&9x9"
src="http://status.mail.ru/?sorlag-wins@mail.ru&9x9"

Как поместить в ListBox только ел.адреса ?
Перегуглил весь инет ничего не нашёл Если вырезает адресса то неправильно
HELP

[lexaltd]

А если так? (делал по быстрому , без проверок)

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s : string;
  i,i2,i3 : Integer;
begin
 ListBox1.Clear;
 for i := 0 to Memo1.Lines.Count - 1 do
  begin
   s := Memo1.Lines.Strings[i];
   i2 := Pos('?',s);
   i3 := Pos('&',s);
   ListBox1.Items.Add(Copy(s, i2+1, (i3 - i2)-1));
  end;

end;

[demon9992]

Спасибо ! Проблему решил с помощью оегулярных выражений