Listbox durchsuchen

[CorsaGsi16v]

Hallo,
wie ich die Listbox durchsuchen kann weiß ich:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i, subStrPos : Integer;
begin
  i := 0; subStrPos := 0;
  while (i < ListBox2.Items.Count) and (subStrPos = 0) do
  begin
    subStrPos := Pos(Edit7.Text,ListBox2.Items[i]);
    if suBstrPos > 0 then
      ListBox2.ItemIndex := i;
    inc(i);
  end;

end;

Nur so springt er nur zum erstgefundenen Ergebnis wie kann ich durch einen weiteren Klick das nächste Object anzeigen lassen(da mehrere gleiche Elemente in der Listbox sind)?

Und wenn das letzte Objekt gefunden ist soll er wieder oben anfangen!?

MfG
Christian

Vielen Dank im vorraus!