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