Zeilen in Memo löschen

[Matze]

Ich habe gedacht, das schreib ich schnell, aber Pustekuchen, kann mir einer sagen, wieso das nicht geht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    LineCount: integer;
begin
  LineCount := Memo1.Lines.Count;

  for i := 0 to LineCount - 1 do
  begin
    if (Memo1.Lines[i] = '') or
       (Pos('     ', Memo1.Lines[i]) = 1) then
       begin
         Memo1.Lines.Delete(i);
         dec(LineCount);
       end;
  end;
end;

dec(LineCount); Wird nicht ausgeführt (es befindet sich kein blauer Punkt beim Kompilieren vor der Zeile).

Gehört zwar nicht direkt zum Thema, würde mich aber schon interessieren.