//Edito: Otra forma es...
Ejemplo, tenemos ListBox1, ListBox2, un botón llamado btDel1al2 y otro llamado btDel2al1 y con todo esto queremos hacer lo que pides:
La cosa es asi:
Código Delphi
[-]
procedure TForm1.btDel1al2Click(Sender: TObject);
begin
ListBox1.MoveSelection(ListBox2);
end;
procedure TForm1.btDel2al1Click(Sender: TObject);
begin
ListBox2.MoveSelection(ListBox1);
end;
Y Listo, espero me haya hecho entender y que te sirva
