Buenas!..
Te comento.. a grandes rasgos el codigo que aqui te pongo hace lo que tu quieres, supongo que abrá formas mas "profesionales" o como quieran llamarlo de hacerlo pero vamos, en un principio mejor que lo que por ahora tienes.. supongo que es..
Código Delphi
[-]
var
i : integer;
begin
for i :=0 to listview1.Items.Count-1 do
if listview1.Items[i].Selected then
edit1.text := edit1.text+listview1.Items[i].Caption+',';
end;
eso en un boton.
Saludos! espero que te sirva para guiarte...