Error en 2 ListBox

[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.