Удаление тегов при парсе

                        
var

  Stroka1: string;

  K, I, R: Integer;

begin

  Stroka1 := Memo1.text;

  while Pos('<', Stroka1) > 0 do

  begin

    I := Pos('<', Stroka1); //позиция символа "<" число

    K := Pos('>', Stroka1); //позиция символа ">" число

    R := K - I; //столько символов нужно удалить

    Delete(Stroka1, I, R + 1); //удаляем

  end;

  Memo1.text := Stroka1;  //текст без html тегов