[lucasarts_18]

Hola:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   cont : Integer;
 begin
   for cont := 0 to ListBox1.Items.Count - 1 do
   begin
     ListBox2.Items.Add := ListBox1.Items.Strings[cont];
     
   end;
 end;

Algo Así ?

Hasta Luego.