Listenindex überschreitet das Maximum (9).

[Mr Whoopee]

Hallo, ich mal wieder ,
ich möchte, dass ein Eintrag aus einer ListBox gelöscht wird.
Hier der Code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
For i:=0 to ListBox1.Items.Count-1 do
    If ListBox1.Items[i]=schueler.Text then
    ListBox1.Items.Delete(i);
end;

Komischerweise sagt Delphi mir, wenn ich was löschen will:
Listenindex überschreitet das Maximum (9). Wenn ich jedoch das hier änder...

Code:

ListBox1.Items.Count-2

... auf -2, kann ich das letzte nicht löschen

Weiß jemand Rat?


Danke für alle Antworten, Whoopee.