Memo. Удаление строк

[Rakim4ik]

Здравствуйте.
У меня проблема с удалением строк в memo...

begin
for y:=0 to Memo4.Lines.Count -1 do
for i:=0 to Memo1.Lines.Count -1 do
begin
if AnsiPos(Memo4.Lines[y], Memo1.Lines[i])<>0 then
begin
Memo1.Lines.Delete(i);
Memo2.Lines.Delete(i);
Memo3.Lines.Delete(i);
end;
end;
end;

В memo1\memo2\memo3 находится 10 слов максимум.
В memo4 их может быть сколько угодно.

В чём суть программы.
Она узнаёт номера строк найденных слов и удаляет эти строки в memo1\memo2\memo3.

Код вроде бы рабочий, но он не удаляет совершенно всё.
Приходится нажимать по 2-3 раза что бы полностью отчистить memo от не нужных слов.

Как сделать что бы он находил все слова ?
Тупо удаление слов не подойдёт, сначала нужно именно найти № строки, ибо в каждом memo1\memo2\memo3 разные слова.

P.S. Заранее спасибо.

[Аватар]

for i:=Memo1.Lines.Count-1 downto 0 do

[Rakim4ik]

Сообщение от Аватар

for i:=Memo1.Lines.Count-1 downto 0 do

Большое спасибо.
2-ой день над этой проблемой мучился.
Поставил + в репутацию