mailto: herausfiltern

[aaron]

hallo ich muss folgenden string (kommt öfters vor)

Code:

[email="[e-mail]"][e-mail][/email]

aus einer html-datei herausfiltern weil ich diese austauschen muss.
das will mir mit dem code unter aber nicht ganz glücken, schwierigkeiten machen irgendwelche tags z.b.

Code:

usw....

die am ende dranhängen und die ich einfach nicht rausgefiltert kriege.
nein, ich will mir keinen spider bauen

Delphi-Quellcode:

 for i := 0 to Memo4.Lines.Count - 1 do
      begin
        if Pos('<a href="mailto:', Memo4.Lines.Strings[i]) > 0 then
        begin
          s := '';
          for p := Pos('<a href="mailto:', Memo4.Lines.Strings[i]) to
            Length(Memo4.Lines.Strings[i]) do
            if Memo4.Lines.Strings[i][p] <> '</a>' then
              s := s + Memo4.Lines.Strings[i][p]
            else
              break;
         // while Pos(s[Length(s)], '..;!")]}?''><`´/' + '</br>' + '</p>' + '</a>' + ('a..z')) > 0 do
           // Delete(s, Length(s), 1);
          Memo5.lines.Add(s);
        end;
      end;
    end;