[marcoszorrilla]

Prueba esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
n:Integer;
begin
 for n:=0 to Listbox1.Items.Count -1 do
 begin
 Edit1.Text:=Edit1.Text+listbox1.Items[n]+' ';
 end;

end;

Un Saludo.