[[Caral]]

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 // diez edits
  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