Error en 2 ListBox

[sac]

Como hago para preguntar si cada linea del listbox2 está seleccionada y si está seleccionada agregarla al listbox1?

Yo tengo un error con la línea de código :
ListBox1.Items.Add ((source as TListBox).Items.text)
No se si el text o el add no los uso bien pero en vez de añadirse las lineas seleccionadas, se agregan juntas, una tras otra, TODAS las lineas del listbox2 de donde las traigo entonces en vez de quedarme:
a
c
e (las lineas elegidas)
me queda allbllclldllellfll etc.

Perdón por la ignorancia
Gracias de ante mano gente del Club delphi!

[roman]

Text, como ya viste, contiene el texto de todas las líneas. Sería mejor así:

Código Delphi [-]
if ListBox2.ItemIndex <> -1 then
  ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);

// Saludos

[sac]

Sigo teniendo problemas Roman, al pasar la línea de código que me tiraste, cuando hago el drag and drop solamente agrega la ÚLTIMA de las líneas que seleccioné y no todas.
Al accept del dragover le di true para que acepte todo y el drop me quedó algo así:

if sender is TLabel then
ListBox1.font:= ((source as TLabel).Font)
else
if ListBox2.ItemIndex <> -1 then
ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
end;

Ahora intenté con un selcount y un for hasta selcount -1 y me agrega la cantidad de lineas que elegí pero en cada linea agregada aparece el último dato elegido. no se si me explico. en vez de aparecerme a,b,c me aparece c,c,c.

[roman]

¿drag and drop? ¿En qué parte habias mencionado eso? Si lo que quieres es arrastrar elementos de un listbox a otro, por ahí hubieras empezado. Revisa este hilo, que ahí se explica.

// Saludos