Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to Listbox1.ItemIndex do begin if Listbox1.Selected[n] = true then Listbox2.Items.Add(Listbox1.Items[n]) end; end;
procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to Listbox1.ItemIndex do begin if Listbox1.Selected[n] = true then Listbox2.Items.Add(Listbox1.Items[n]) end; end;