ListBox Suche ergänzen?

[AlexII]

Hallo,

ich suche wie folgt eine ListBox durch. Bei mir wird allerdings nur ein Item selektiert und immer das letzte. Möchte es aber so habe, dass alle Item selektiert werden wo eine Suche erfolgreich war.

Delphi-Quellcode:

procedure TForm1.SearchEditChange(Sender: TObject);
var Stationscount, i, Kandidat: Integer;
begin
Stationscount:=ListBox1.Items.Count;

for i:=0 to Stationscount-1 do
   begin
     Kandidat:=Pos(SearchEdit.Text, AnsiLowerCase(ListBox1.Items[i]));
     if Kandidat <> 0 then
     begin
     ListBox1.ItemIndex:=i;
     end;
   end;
end;

Die ListBox bei diesem Code auf MultiSelect:=True setzen hilft nicht. Und anstatt ListBox1.ItemIndex:=i; -> ListBox1.ItemSelect:=i; nehmen kann man nicht, so nen Befehl gibt es nicht.

Wer kann mir das weiter helfen? Danke!