drag-and-drop

:shock: Caro chiquinho, siga os seguintes passos:

1 - No listbox1, mude o conteúdo da propriedade DragMode para Automático.

//Pronto, agora quando você pressionar o mouse sobre qualquer linha do listbox1, irá aparacer aquela bolinha de drag.

2 - No evento OnDragOver do LISTBOX2, digite o seguinte código:

If(TlistBox(Sender).Name = Tlistbox(Sender).Name) Then
Accept:=False;

//Se Accept for true, então o evento OnDragDrop será executado.

3 - No Evento OnDragDrop do LISTBOX2 digite:

If(Listbox1.Itemindex <> -1) Then
Listbox2.items.add(listbox1.items.strings[listbox1.itemindex]);
Listbox1.delete(listbox1.itemindex);

// Se itemindex do listbox1 for diferente de -1 é por que tem linha selecionada, ou seja, ele só vai executar o comando acima, caso alguma linha esteja selecionada....

Siga os mesmos passos para o inverso da operação...

Se você quiser tudo bem detalhado, manda um e-mail pra mim que eu te explico ou mando pra ti o código completo....

ESPERO TER AJUDADO: