你用的循环是什么,
for i:=0 to listbox1.items.count-1 do begin
    listbox1.ItemIndex := i;
    if listbox1.SelCount = 0 then exit;
    if listbox1.Selected[listbox1.itemindex] then begin
      listbox2.items.add(listbox1.Items.Strings[listbox1.itemindex]);
      listbox1.Items.Delete(listbox1.ItemIndex);    end
  end