In einer Listview Einträge makieren

[napsterxx]

Hey
sitz mal wieder vor so na Schranke xDD
Also folgendes:
Ich habe in einer Listbox alle Items, die sich auch in einr Listview befinden. Mit hilfe eines Edit-Feldes gebe ich nun den Suchbegriff ein. Danach klicke ich auf einen Button und ersucht. UIND er FINDET.^^
Dann will ich das der gefundene eintrag der Listbox auch in der Listview makiert wird. Ich habe z.B. nach Musik gesucht. Alle Einträge der Listview sind in der gleichen Reihenfolge wie in der Listbox. Suche ich jetzt nach "Linkin Park" findet er ein Lied in der Listbox aber wie makiere ich dieses nun in der Listview ich habe es so probiert.

Listview.ItemIndex := Listbox.ITems.IndexOf(Edit1.Text); << Geht nicht ...

EDIT:
Was ich nun Versucht habe ist alle Items aus Listview zu löschen, die NICHT dem Text vom Edit entsprechen.
In meiner Listview ist die erste Spalte "Interpret" also wird bei Edit1 der Interpret gesucht, aber es funktioniert nicht.

Delphi-Quellcode:

procedure TForm1.Button17Click(Sender: TObject);
var result, w,w1 : integer;
array1 : array [0..100000] of Integer;
begin
result := Listbox1.Items.Count-1;
for w := 0 to result do
  begin
    if not (listbox1.Items.Strings[w] = Edit1.Text) then
    begin
    w2 := w;
    Button18.Click;
    end;
  end;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
    listbox1.Items.Delete(w2);
    listbox6.Items.Delete(w2);
    listbox5.Items.Delete(w2);
    View.Items.Delete(w2);
    button17.click;
end;