alle Strings aus Edit.Text in der ListBox farbig darstellen

[newuser01]

Hallo

Ich habe ein Edit und eine ListBox und in der ListBox sind zb: 10 Einträge Jetzt möchte ich gerne das ein bestimmtes Wort was im Edit1 eingetragen wurde in der ListBox gesucht wird und alle gefundenen Wörter farblich dargestellt werden. Ich weiß das es mit RichEdit einfacher geht und dafür hätte ich auch schon eine Lösung nur RichEdit kommt für mich nicht in frage da es kein OnClick Ereignis also (items.strings[i] Selectierung per Maus) besitzt wie es ListBox hat.

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count -1 do
begin

if ListBox1.Items.Strings[i] = // hier Prüfen lassen ob das Wort was im Edit1 steht vorhanden ist wenn ja farblich darstellen

end;

Grüße
Holger