Hola
No se si sera esto:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
var
i : integer;
begin
i:= ListBox1.ItemIndex;
If(ListBox1.Selected[i]=True)then
label1.Caption:= ListBox1.Items[i];
end;
Cuando das click a un item del listbox el label obtiene el nombre de este item.
Saludos