Не получается удалить строки из TMemo

[RIO]

Здравствуйте ! Извините за возможно дурной вопрос. Но все же. Удалить строку из TMemo можно так :

First.Lines.Delete(K);

Но, у меня есть HTML код который загружается в TMemo, из него мне нужно удалить теги - <meta...> их 4. Данной процедурой :

for K := 0 to First.Lines.Count - 1 do
     if Pos('<meta', First.Lines.Strings[K]) > 0 then
        First.Lines.Delete(K);

Почему-то удаляются только 2. При том что, вот этой :

for K := 0 to First.Lines.Count - 1 do
     if Pos('<meta', First.Lines.Strings[K]) > 0 then
        First.Lines.Strings[K] := '';

Можно вырезать все 4. Но второй вариант мне не подходит, так как он оставляет пустое место. Подскажите в чем проблема ?

[mihali4]

Вы не учли, что удалив строку, на ее место становится следующая строка, подлежащая удалению...
Но ее индекс вы уже "проверили" и она выпадает из цикла проверки...
Нужно:

for K := 0 to First.Lines.Count - 1 do
begin
     while Pos('<meta', First.Lines.Strings[K]) > 0 do
        First.Lines.Delete(K);
end;

[RIO]

Да, это точно Огромное спасибо Вам