Dann ist dein Code oben aber ziemlich `unsinnig´ (gelinde gesagt) 8)
Du willst also alle Zeilen aus "ListView1" löschen, die nicht in "y" stehen?
Das geht so:
Delphi-Quellcode:
for p := ListBox1.Items.Count - 1 downto 0 do
if y.IndexOf(ListBox1.Items[p]) = -1 then
ListBox1.Items.Delete(p);