Mover todos los elementos entre dos listbox

[creus]

Necesito traspasar todos los elementos de un Listbox1 a un Listbox 2 con un click de boton. Sin ser necesario seleccionar ningun elemento.

He conseguido hacerlo traspasando uno por uno, seleccionandolos uno por uno, pero todos de golpe?

El codigo utilizado para hacerlo uno por uno es,

listbox1.Items.Strings[listbox1.Itemindex]:=listbox2.Items.Strings[listbox2.Itemindex];

listbox2.Items.Delete.(listbox2.Itemindex);



Gracias de antemano

[aladelta]

Hola

prueba a asignar toda la propiedad items, prueba algo como esto

Código Delphi [-]
listbox1.items:=listbox2.items
listbox2.items.clear

Saludos

[creus]

Gracias ahora me funciona tal y como deseaba.

Gracias de nuevo