Delphi - Ayuda.. en Arrastar y soltar

Hola.. mi problema es como hacer para arrastar y soltar (Drag and Drop) en delphi 4 usando dos TlistBox una de fuente y otra de destino, como puede hacer eso sin usar el mouse usando dos botones uno de agrehgar y otro de quitar como comunmente se hace en los wizard por ejemplo.. Gracias.. de antemano

Vaya, parece que sabes hacer lo difícil pero se te resiste lo fácil.

Para añadir un elemento del ListBox1 al ListBox2 por medio de un botón, en el código correspondiente pon algo como:

{Comprobamos que haya algún elemento seleccionado en el origen.}
if ListBox1.ItemIndex >= 0 then begin

{Comprobamos que no se metan elementos repetidos.}
if ListBox2.Items.IndexOf(ListBox1.Items[ListBox1.ItemIndex]) < 0 then
ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

end;{if}

Lo intentare muchas gracias... vere que pasa.. te dejo un mensaje si puedo.. muchas GRacias FEr

Fer el codigo que me enviaste lo puse en un boton y no funciona.. :( me puedes ayudar??

Ya Funciono Muchas Gracias !!! FEr!!! saludos desde Mazatlan Sinaloa Mexico.. :)