Código Delphi [-] procedure TForm1.ListBox1Click(Sender: TObject); begin label1.Text:= listbox1.items[listbox1.itemindex]; end;
procedure TForm1.ListBox1Click(Sender: TObject); begin label1.Text:= listbox1.items[listbox1.itemindex]; end;