Text Parsen / Durchsuchen

[Detrox]

Ich hab jetzt mal im Forum gesucht, ich bekomme es als Anfänger ja hin das erste zu finden und dazwischen auszugeben aber das er danach mit den andern weitermach bekomm ich nich hin, hier mal mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var StringList:TStringList;
    posi:integer;
    s:string;
begin
  StringList := TStringList.Create;
  try
    StringList.Text := Memo1.text  ;
    s:=StringList.Text;
    delete(s, 1, pos('<td><span class="dodo">', s) + length('<td><span class="dodo">') - 1);
    Memo2.Text := copy(s, 1, pos('</span></td>', s) - 1);
  finally
    StringList.free;

  end;

LG
Detrox