listbox o sucedaneo

[anubis]

A ver no creo que sea tan dificil usar un listbox, pero me da problemas y estoy mirando en la ayuda de delphi pero no me soluciona nada.

Código Delphi [-]
 lista := TStringList.Create;
lista.add(Anadirnom.text);
listbox1.items.AddStrings(lista);

tengo un boton, un tedit y un listbox. Si relleno el tedit y pulso el boton (porque con enter no vale ni poniendo onexit), pero luego tengo el problema de seleccionar en la lista y pasar el seleccinado por ejemplo a un label. Esto hay forma de hacerlo? porque estoy mirando pero veo.

gracias por vuestra paciencia