Filter für Listbox einträge

[quakergod]

hi, ich mache einen kleinen streamplayer und habe die streams in eine listbox geschrieben.

jetzt versuch ich einen filter zu machen, in dem man z.bsp "rock" eingibt und alle listbox einträge die nicht "rock" enthalten werden gelöscht..

soweit bin ich gekommen:

Delphi-Quellcode:

procedure TForm1.edit_filterChange(Sender: TObject);
var i: integer;
begin
for i := lb_streams.Items.Count-1 downto 0 do
begin
  if pos(edit_filter.text, lb_streams.Items.Strings[i]) > 0 then
  begin
  lb_streams.Items.Delete(i);
  end;
end;
end;

leider ist es jetzt andersrum, die einträge die stehen bleiben sollten werden gelöscht, und so richtig funktioniert das ganze nicht..

kann mir da jemand helfen?