ReplaceAll mit WildCard

[glkgereon]

hi

ich hab mittlerweile die function MatchesMask gefunden und mir folgende lösung zum löschen von HTML-Tags gebastelt:

Delphi-Quellcode:

function TForm1.DeleteHTMLTags(Code: String):String;
var i, j:Integer;
begin
  i:=1;
  while i<>0 do  //Wenn PosEx nix mehr findet...
    begin
    j:=PosEx('>',Code,i+1); 
    if j>0 then
      if MatchesMask(copy(Code,i,j-i+1),'<*>') then Delete(Code,i,j-i+1);
    i:=PosEx('<',Code,i);
    end;
  Result:=Code;
end;

nun die frage: wie schaffe ich es dass er zuerst die script-Tags löscht?