Удаление найденый слов из мемо

[bulldog5293]

Есть код который который удаляет из мемо2 найденные повторения в мемо1

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  i := Memo2.Lines.Count-1;
  while i >= 0 do
  begin
    j := Memo2.Lines.IndexOf(Memo1.Lines[i]);
    while (j >= 0) and (j < i) and (i >= 0) do
    begin
      Dec(i);
      Memo2.Lines.Delete(j);
      if i >= 0 then
        j := Memo2.Lines.IndexOf(Memo1.Lines[i]);
    end;
    Dec(i);
end;
end;

но он не удаляет первое найденное повторение, от чего это может быть?