Tags aus HTML-Code entfernen

[Gambit]

Moin,

ich habe hier folgenden Code, mit dem ich Tags aus HTML-Code entfernen möchte:

Delphi-Quellcode:

While containsTags = True do begin
      If (AnsiContainsText(HTMLCode, '<')) and (AnsiContainsText(HTMLCode, '>')) then begin
        containsTags:= True;
        Pos1:= AnsiPos('<', HTMLCode);
        Pos2:= AnsiPos('>', HTMLCode);
        Delete(HTMLCode, Pos1, Pos2-Pos1+1);
      end else containsTags:= False;
    end;

Das funzt ganz gut, versagt aber mit einer Endlosschleife, wenn der HTML-Code fehlerhaft ist, also zb. mitten im Text nach anderen Tags ein br> (hier fehlt die spitze Klammer auf) steht und noch weitere Tags folgen.

Beispiel:

<td colspan=3>F.R.I.E.N.D.S - Die Serie ist das TV-Phänomen der letzten Jahre. Die Geschichten von sechs Freunden, die in New York Liebe und Leben meistern, hat eine weltweite Fan-Gemeinde. Kein Wunder, daß die Besetzung immer noch die selbe ist, wie beim Start im Jahre 1994.



b>Episoden:[/b] // Hier der Fehler im HTML-Code
[*]Durch den Wind
[*]Ist das Leben nicht schlecht?
[*]Im Namen der Männlichkeit

Ergebnis der Routine oben ist eine Endlosschleife.

Hat da jemand ne Idee?

Gruß

Gambit