Fehler in function zum löschen von Elementen eines Strings

[Brakeman]

Hallo,
ich habe hier im Forum folgende function gefunden:

Delphi-Quellcode:

function withouttags (Zeile: string): string;
var i,anfang, ende: integer;

begin
    i := 0;
    While i < length (Zeile) do
     begin
      If Zeile[i] = '<' then
       anfang := i;
      If Zeile[i] = '>' then
       begin
        ende := i;
        delete (Zeile,anfang , ende );
        i := 1;
       end
      else
       inc(i);
     end;
     result := zeile;
end;

Leider funktioniert sie nicht richtig. Denn wenn ich die funktion folgendermassen aufrufe:

withouttags ('[B]das soll übrig bleiben[/B]'); Dann erhalte ich folgendes zurück: das soll übrig bleiben[/B]

Der abschliessende Tag wird also nicht entfernt. Was ist denn an der function falsch?

Danke für die Hilfe!