关于listbox用法，高手进，在线等.....

关于listbox用法，高手进，在线等..... VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061225120329130.html
在做权限设置时我想用listbox框来操作：  
  加两个listbox框，listbox1,listbox2  
  listbox1里列出备选的权限，listbox2用来放已选择的权限。  
  当双击listbox1里的某项权限时（比如，“修改记录”权限），所选权限（如“修改记录”权限）自动移动到listbox2里面，请问怎样实现呀？大侠指点............

双击   这个不会     不过用个按钮到会

LBoxDest.Items.Add(   LBSrc.Items[   LBSrc.ItemIndex   ]   );  
   
  记得要处理异常，判断重复项

怎样判断重复呀？？？

还有就是移动后，原listbox1里就不要有了移动项了

大家帮忙啊

移动后  
  从   listbox1   里删除掉他就可以实现不重复了嘛。

indexof(   ''   )是否等于-1

详细一下呀，比如我要移动多项呀，怎么能删除其它的呢

to   hongqi162（失踪的月亮）：  
  你是个高手，又有一个问题，就是删除一个listbox1里的一个items项目后，怎样让剩下的项目重新排列一个呀？？

var   i:integer;  
  begin  
      for   i:=listbox1.Count-1   downto   0   do  
          if   listbox1.Selected[i]   then     begin  
              listbox2.Items.Add(listbox1.Items[i]);  
              listbox1.Items.Delete(i);  
          end;  
  end;