Código Delphi [-] for i:= ListBox1.Count-1 downto 0 do if ListBox2.Items.IndexOf(ListBox1.Items[i]) <> -1 then ListBox1.Items.Delete(i);
for i:= ListBox1.Count-1 downto 0 do if ListBox2.Items.IndexOf(ListBox1.Items[i]) <> -1 then ListBox1.Items.Delete(i);