ListBox Ayuda
 

Hola tengo que terminar el código de un programa, en un list box puedo seleccionar uno o varios items (active multiselect) y copiarlos a otro list box, pero hasta ahora lo único que logré fue pasar solamente una linea. Adjunto el código.
Para que entiendan lo que hace, tengo 2 listbox uno que se llama alquiler y otro ventas, y lo que tengo que hacer es mostrar en un tercer list box, el texto que seleccione de cualquiera de los 2 listbox.

Código Delphi [-]
procedure TFInmobiliaria.Pasaramostrar2Click(Sender: TObject);
var
  NroLinea:integer;
  Linea:string;
begin
  if LBAlquiler.SelCount>0
    then
      begin
      NroLinea:=LBAlquiler.ItemIndex; //obtengo el numero de linea en el listbox1
      linea:=LBAlquiler.Items.Strings[NroLinea]; //obtengo el texto de la linea
      LBMostrar.Items.Add(Linea); //Pego la linea en listbox2 
      end;
end;

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.

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Y recuerda poner títulos descriptivos.