hola
probé con este codigo y funcionó pero no sé si está del todo bien:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var I,Y:integer;
begin
for i:=ListBox2.Count-1 downto 0 do
for y:=ListBox1.Count-1 downto 0 do
with ListBox1.Items do Delete (IndexOf(ListBox2.Items[i]));
end;
si me pudieran decir
gracias y saludos