Mover elementos de un listbox a otro

[creus]

Necesito mover elementos de un listbox1 a un listbox2. Hasta ahí bien. Me encuentro con el problema que cuando paso todos los elementos de un listbox a otro me guarda la posicion utilizada.Y cuando quiero introducir otro elemento sin pasarlo me lo guarda debajo de un monton de espacios en blanco.
Este es el codigo que he utilizado.

Listbox2.Items.Strings[listbox2.Itemindex]:=Listbox1.Items.Strings[listbox1.itemindex];

Listbox1.Items.Strings[listbox1.itemindex]:='';

Graciasssss