[[eduarcol]]

a ver no me parece qe eso funcione muy bien

prueba esto

Código Delphi [-]
if ListBox1.ItemIndex = -1 then
   Showmessage('Debe seleccionar el item a cambiar')
else
begin
   ListBox2.Items.Add(ListBox1.Items.string[ListBox1.ItemIndex]);
   ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

y al contrario

Código Delphi [-]
if ListBox2.ItemIndex = -1 then
   Showmessage('Debe seleccionar el item a cambiar')
else
begin
   ListBox1.Items.Add(ListBox2.Items.string[ListBox2.ItemIndex]);
   ListBox2.Items.Delete(ListBox2.ItemIndex);
end;