ListBox Ayuda

[marcoszorrilla]

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;

Un Saludo.