Listview vergleichen und Löschen Problem

[Bernd29bln]

Hallo,

Ich habe 2 Listboxen.

In der Listview1 stehen z.B:

Thomas
Susi
Marc

In der Listview2 stehen auch Nahmen.

Mein Problem liegt darin, wenn ich nun in Listview1 mehrere verschiedene Namen Lösche, dann sollen die auch in der Listview2 gelöscht werden.

ich hab es schon mit dem Code Versucht:

Delphi-Quellcode:

   for il:= Listview1.Items.Count -1 downto 0 do
     begin
      if Listview1.Items[il].Checked then
       begin
        Listview1.Items.Delete(il);
        if Listview2.Items.IndexOf(Listview1.Items[il]) > 0 then
       begin
         Listview2.Items.Delete(il);
       end;

aber ich komme nicht weiter.

Hat jemand eine Idee?

Gruß Bernd