Listbox loescht verkehrtes item.

[lucius]

Hallo Leute ich brauche nochmal kurz euere Hilfe bitte.
Ich habe eine Listbox die wird verglichen met eine StringListe, jetzt wollte ich das wenn ein Item nicht in der StringListe vorkommt das es aus der Listbox entfernt wird.

Delphi-Quellcode:

for b := y.Count-1 downto 0 do 
  for p := ListBox1.Items.Count-1 downto 0 do
     if not listbox1.Items.IndexOf(y.Strings[b])= -1 then
       begin
       ListBox1.Items.Delete(b); //Loescht aber das verkehrte Item//
       showmessage(listbox1.Items.Strings[b]); //zur Kontrolle zeigt das richtig zu loeschende Item an//
       end;

Kann mir da einer helfen bitte?
Ist bestimmt nen kleinen Fehler aber ich sehe ihn im Moment nicht.

MFG Lucius.