EStringListError

[Spynx]

Hallo,
ich bin absoluter Delphi-Depp und sitze hier schon seit Stunden an der selben Stelle fest... Ich komme einfach nicht auf den Fehler. Vielen Dank für jegliche Hilfe!

Im Project Project1.exe ist eine Exception der Klasse EStringListError aufgetreten. Meldung: 'Der Index der Liste überschreitet das Maxiumum (2). Prozess wurde angehalten. Mit Einzelne Anwendung oder Start fortsetzen.

Delphi-Quellcode:

procedure TForm1.Button21Click(Sender: TObject);
var i:integer; dummy:string;
begin

    for i:=0 to (listbox2.items.count-1) do begin
    dummy:=ListBox2.Items[i];
    listbox1.items.add(dummy);
    ListBox2.Items.Delete(i);
    label3.caption:='Gesamt:' + ' ' + inttostr(ListBox1.Items.Count);
    label6.caption:='Gesamt:' + ' ' + inttostr(ListBox2.Items.Count);
    edit3.text:='';
    edit4.text:='';
    end;
    end;