de un list a otro??

[UREÑA]

hola amogos el ejemplo de jony no me funciana me marca un error con el move selection

[Error] unit_AluMat.pas(167): Undeclared identifier: 'MoveSelection'

Código SQL [-]
procedure TForm1.agr_unoClick(Sender: TObject);
//Listbox2.Items.Strings[listbox2.Itemindex]:=Listbox1.Items.Strings[listbox1.itemindex];
//ListBox1.Items.Delete(ListBox1.ItemIndex);
  ListBox1.MoveSelection(ListBox2);
end;

y el que me paso eduarcol (es el que esta entre comentarios)si me funciona de un list a otro, pero cuando quiero hacerlo alreves no funciona me borra el dato pero no me lo pone en el otro list

Código SQL [-]
Listbox1.Items.Strings[listbox1.Itemindex]:=Listbox2.Items.Strings[listbox2.itemindex];
ListBox2.Items.Delete(ListBox2.ItemIndex);

gracias espero no ser demaciado tonto y no entender lo que me quicieron explicar gracias de antemano