用listbox描述的delphi冒泡算法