[titorp14]

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;