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;

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;

//das würde zb: nicht so einfach gehen
for i := 0 to lbAusgabe.Items.Count -1 do
begin

     if lbAusgabe.Selected[i] = true then
     begin
     lbWunschliste.Items.Add(lbAusgabe.Items.Strings[i]);
     end;

end;

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

     if lbAusgabe.Selected[i] = true then
     begin
     sDateiname := lbAusgabe.Items.Strings[i];
     ShellExecute(Handle,'open','C:\Programme\Winamp\winamp.exe',PChar('"' + sDateiname+'"'),'',SW_NORMAL);
     end;

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

var
  sValue : string;
  sOut : string;
  lb : TListBox;
  iLeft : integer;
  iTop : integer;

begin
  // Auszugebenden Eintrag merken
  sValue := ListBox1.Items[Index]+' ';
  // Startpunkt für die Ausgabe merken
  iLeft := Rect.Left;
  iTop := Rect.Top;
  // Damit's übersichtlicher wird die Listbox in eine kleine Variable
  lb := (Control as TListBox);
  // Aktuelle Schriftfarbe auf Blau
  lb.Canvas.Font.Color := clBlue;
  // Alle mit Leerzeichen getrennten Teile unterschiedlich einfärben
  // (rot / blau im Wechsel
  while pos(' ',sValue) > 0 do begin
    // Auszugebenden Teil auslesen
    sOut := copy(sValue,1,pos(' ',sValue));
    // Schriftfarbe setzen (aktuell rot? dann blau und umgekehrt)
    if lb.Canvas.Font.Color = clRed then begin
      lb.Canvas.Font.Color := clBlue;
    end else begin
      lb.Canvas.Font.Color := clRed;
    end;
    // Text ausgeben
    // (Dadurch wird auch gleich die Ausgabeposition neu gesetzt)
    lb.Canvas.TextOut(iLeft,iTop,sOut);
    // Auszugebenden ListBox eintrag um bereits ausgegebenen
    // Text verkürzen
    sValue := copy(sValue,pos(' ',sValue)+1,MaxInt);
    // Startposition für den nächst Abschnitt setzen
    iLeft := lb.Canvas.PenPos.X;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

ListBox1.Style := lbOwnerDrawFixed;
ListBox1.Items.Add('test1 test2 test3 test4 test5 test6');

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

  with (Control as TListbox) do
  begin

    if (Index mod 1 = 0) then
    begin
      Canvas.Brush.Color := clRed;
    end;
    DrawText(Canvas.Handle, Pchar(Items[Index]), Length(Items[Index]),Rect,DT_SINGLELINE or DT_VCENTER); // Text
  end;

end;