Konsolenanwendung: Stringlist error

[Thomas_Pape]

Hallo alle miteinander,

ich glaube die Lösung ist relativ einfach. Hier mal meine

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

Var
Zeile : Integer;

begin
  Zeile := 0;
  While Zeile < Memo1.Lines.Count Do
  Begin
    If Memo1.Lines[Zeile] = 'weg'
      Then Memo1.Lines.Delete(Zeile)
      Else Zeile := Zeile + 1;
  End;
end;

Gruß Thomas