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!