Código Delphi [-] ListBox1.Items.Strings[listbox1.itemindex];
ListBox1.Items.Strings[listbox1.itemindex];