Listbox auslesen

[oldmann]

Hallo,
ich habe folgendes Problem.
Ich habe eine For Schleife mit der ich eine Listbox auslese.
Stimmt der Wert in Listbox1, dann wird der Wert in Listbox2 geschrieben.
Stimmt der Wert nicht, wird er mit Delete gelöscht.
Dadurch stimmt aber Form1.ListBox1.Items.Count nicht mehr und es gibt eine Fehlermeldung.
Meine Frage lautet: Wie kann ich das Problem lösen???
Gruss Oldmann

for i := 0 to Form1.ListBox1.Items.Count-1 do
if Form1.ListBox1.Items[i] = text then
Begin
Form5.ListBox2.Items.Add(Form1.ListBox1.Items[i]);
End else
begin
Form1.ListBox1.Items.Delete(i);
end;