Listbox mit einer Suchfunktion durchsuchen?

[playa2k]

Danke erst einmal für die Lösungsvorschläge.

Bin der Idee von DeddyH gefolgt, weil mir diese als einfachste erschien.
Jetzt weiß ich auch so ungefähr, was "AnsiContainsText" macht.
"Returns true if a string contains a substring, case insensitive"
True wird "gegeben", sobald String Zeichen vom Substring enthält.
Soweit ok.

if not StrUtils.AnsiContainsText(Suchstring,ListBox.Items[i])
^ ^
Also : 2.dem gesucht|1.In hier wird nach -
|-------------------------------|

Ich habe soweit folgendes stehen und bekomme folgende Fehlermeldungen, mit denen ich nichts anfangen kann, finde die Fehler nicht *schäm*

procedure TForm2.Button1Click(Sender: TObject);
begin
for i := Pred(ListBox1.Items.Count) downto 0 do
if not StrUtils.AnsiContainsText(Wort,ListBox1.Items[i]) then
ListBox.Items.Delete(i);
end;


[Error] Unit2.pas(42): Incompatible types: 'String' and 'Integer'
[Error] Unit2.pas(44): ')' expected but identifier 'Items' found
[Error] Unit2.pas(52): Statement expected but end of file found

Irgendwas stimmt mit ListBox1.Items[i] nicht, das weiß ich schonmal.
Ich habe versucht, die Fehler zu beseitigen, jedoch ohne Erfolg.
Ich möchte mich auch für das untere Niveau dieses Threads entschuldigen,es wäre wichtig für mich dieses Programm nach meinen Vorstellungen zu erstellen.

play
frohes Fest