Тогда вместо Memo1 поставь
Код:
ListBox1.Items.Text := S;
получишь список в обычном листбоксе.
Далее юзер селектит нужные строчки, а ты при нажатии кнопочки пробегаешь по листбоксу и все выделенные записи копируешь куда надо (не забудь у листбокса Multiselect поставить):
Код:
var
I : Integer;
begin
For I := 0 To ListBox1.Items.Count-1 Do
If ListBox1.Selected[i] Then Edit1.Text := Edit1.Text + ListBox1.Items[i] + '; ';