[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