[РЕШЕНО]: Удаление каждой второй строки в memo

[Hinc]

Приветствую.
Как удалить каждую вторую строку в memo? Пробовал и через for и через while.

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
i:=1;
  while i<Memo1.Lines.Count do begin
     Memo1.Lines.Delete(i);
     Inc(i,2)
  end;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

Что было до нажатия кнопки:
8
8
49
49
50
50
51
51
52
52
53
53
54
54
162
162

Что осталось после нажатия кнопки:
8
49
49
50
51
52
52
53
54
162
162

Как сделать так, чтобы удаляло каждую вторую строку?

Решение:

Сообщение от TaLadno

var i: integer;
begin
  for i := Memo.Lines.Count - 1 downto 0 do
    if i mod 2 = 0 then
      Memo.Lines.Delete(i);

[TaLadno]

var i: integer;
begin
  for i := Memo.Lines.Count - 1 downto 0 do
    if i mod 2 = 0 then
      Memo.Lines.Delete(i);

[Hinc]

Спаситель.
Спасибо!!!