ListBox Ayuda

[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.

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;

[marcoszorrilla]

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.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración.

Y recuerda poner títulos descriptivos.