Funkcja do usuwania tagów HTML

KOD:

function DelHTML(s: string): string; { Usuwanie tagów HTML }

var

i: Word;

tag: Shortint;

begin

Result:='';

tag := 0;

for i := 1 to length(s) do

begin

if s[i] = '<' then Inc(tag); if tag = 0 then Result := Result + s[i]; if s[i] = '>' then Dec(tag);

end;

end;