alle Strings aus Edit.Text in der ListBox farbig darstellen

[newuser01]

Ich versuche die ganze Zeit ein bestimmtes Wort in der ListBox zu suchen und zwar so

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i:integer;
s,sText:string;
slTemp: TStringList;
begin

try

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

        slTemp := TStringList.Create;
        slTemp.Clear();
        sText := '';
        
        //in lbAusgabe Strings[i] wird nach dem Wort was in eSearch.Text steht gesucht funktioniert aber leider nicht 
        //sText := lbAusgabe.Items.Strings[i];  


        //in edit1 wird nach dem Wort was in eSearch.Text steht gesucht das funktioniert sehr gut
        sText := Edit1.Text; 
        s := eSearch.Text;

        //warum funktioniert die Suche nur in Edit1 ? und nicht in lbAusgabe Strings[i] ?


        while pos(s,sText) <> 0 do
        begin
        slTemp.Add(copy(sText,1,pos(s,sText)-1));
        delete(sText,1,pos(s,sText));
        end;

        slTemp.Add(sText);

                         if slTemp.Strings[i] = sText Then
                         begin
                         // nichts tun
                         end
                            else
                                begin
                                MessageDlg('gesuchte Wort gefunden',mtInformation, [mbOK], 0);
                                //wenn gefunden dann alle gefundenen Wörter farblich darstellen


                         end;//if

        end;//schleife


                                  except
                                  //Exit;

     end; //try



end;

oder bin ich völlig auf dem Holzweg ?

Gruß
Holger