有的时候，例如：
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
ListBox1.Items.Delete(i);
会出现错误！
用Downto 代替就行了。
for i:=listbox1.Items.Count-1 downto 0 do
if listbox1.Selected[i] then
listbox1.Items.Delete(i);