获取ListBox选中的值与删除当前选中的

方法一：

if listbox1.itemindex <> -1 then 
  showmessage(listbox1.items.strings[listbox1.itemindex]); 
不知道是不是能解决你的问题 

方法二：

ListBox1.Items[ListBox1.ItemIndex]
不过要判断ItemIndex是否为-1,-1的时候为没有选中任何项,0为第一项

2014.02.17-----删除当前选中的

ListBox1.Items.Delete(ListBox1.ItemIndex);