Problem mit entfernen von ListBox einträgen

[Luckie]

Überleg mal, was der Code:

Delphi-Quellcode:

  for i:=0 to Form2.ListBox1.Items.Count-1 do
  begin
    Form2.ListBox1.Items[i]:=Edit1.Text;
    Form2.ListBox1.Items.Delete(i);
  end;

macht. Löscht er einen Eintrag oder alle Einträge aus der Listbox?