Hola
Coloca en el listbox multiselect = true.
En un boton:
Código Delphi
[-]var
i, n:Integer;
comp:TComponent;
begin
for i := 1 to 9 do begin comp := FindComponent('Edit' + IntToStr(i+1));
for n:= 0 to Listbox1.Items.Count do
begin
if ListBox1.Selected[i] = true then
TEdit(comp).Text:= listbox1.Items[i];
end;
end;
Saludos