Konsolenanwendung: Stringlist error

[DeddyH]

Ich hab mal ein Beispiel mit einem Memo erstellt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const weg = 4;
var Anzahl, Zeile, j: integer;
begin
  Anzahl := Memo1.Lines.Count;
  Zeile := weg; //wir fangen erst bei der 5. Zeile an, sonst kracht es beim Löschen
  while Zeile < Anzahl do
    begin
      if Memo1.Lines[Zeile] = 'weg' then
        begin
          for j := 1 to weg do
            Memo1.Lines.Delete(Zeile - j);
          dec(Anzahl,weg); //Anzahl der Zeilen neu berechnen
        end;
      inc(Zeile);
      if Zeile < weg then
        Zeile := weg; //ggf. wieder auf 4 erhöhen, s.o.
    end;
end;