[danyfebrero]

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