отчиска HTML кода

[пауэрлифтинг]

мне надо показать содержимое страницы без HTML нужна только видимая часть
сделал процедуру которая удаляет теги. но она работает почему то через раз. и на ней программа вылетает.

function ootcTEG (s: string): string;
var i,i2: integer;  var ss: string;
begin
ss:=s;
i:=pos('<',ss);
while i>0 do
begin
i2:= pos('>',ss);
if i2<=0 then i2:=i;
 delete(ss,i,i2-i+1);
 i:=pos('<',ss);
end;
  result:=ss;
end;

че тут не правьльно?

[TwiX]

1) ss можно не создавать, а работать прямо с s
2) i2 не может быть меньше нуля. Тут уже надо думать. Если i2 < i, то в некоторую string копируем всё до i2, удалив это из s, и снова ищем '<'.