Проблема с удалением строк в TMemo

[Night_Devil]

Доброго всем времени суток. Уже часа 2 бьюсь на одной проблемой. Необходимо циклом пробегаться по Мемо и удалять повторяющиеся строки. Делает цикл это ПРАКТИЧЕСКИ на ура....
В зависимости от общего количества строк, цикл 1 раз оставляет "повторяшку". Почему - понять не могу. Поэтому прошу помощи у вас, форумчане.
Вот код цикла:

 a := -1;
  repeat
    a := a + 1;
    for i := a + 1 to Memo3.Lines.Count - 1 do
    begin
      if (Memo3.Lines[i - 1] = Memo3.Lines[i]) then
      begin
        Memo3.Lines.Delete(i - 1);
        Memo1.Lines.Delete(i - 1);
      end;
      if (Memo3.Lines[a] = Memo3.Lines[i]) then
      begin
        Memo3.Lines.Delete(a);
        Memo1.Lines.Delete(a);
      end;
    end;
  until a = Memo3.Lines.Count - 1;

[Genco]

Это вообще не очень хорошая идея - менять размер набора, по которому проходишь циклом for.

Навскидку:

 a := -1;
  repeat
    a := a + 1;  
    b:=a+1;
    while (b<=Memo3.Lines.Count - 1) do
     begin
       if (Memo3.Lines[b] = Memo3.Lines[a]) then
        begin
         Memo3.Lines.Delete(b);
         Memo1.Lines.Delete(b);
        end
       else Inc(b);
     end;

  until a = Memo3.Lines.Count - 1;

[Night_Devil]

Огромное спасибо за помощь. Только вместо Inc(b) я сделал b:=b+1