minni while schleife auf geschwindigkeit optimieren

[Cyberstorm]

hi. ich will aus einer html seite alle tags löschen --> alle sachen wie <Table blablabla> usw. löschen.

meine schleife funktioniert soweit aber ist mir zu lahm bei längeren seiten.
wie kann ich den code auf geschwindigkeit optimieren?

Delphi-Quellcode:

var
  first: Integer;
  htmlString: String;
begin
  //htmlStringzuweisen
  first:=1;
  while first > 0 do
    begin
      first:=Pos('<', htmlString);
      Delete(htmlString, first, pos('>', htmlString) - first + 1);
    end;
end;