請問各位 上圖為 運行程式 出現的問題提示 我是將倆個listbox分別左右放置，將右邊的listbox選中三筆，按下button ,所表達的最終結果，應該是三筆記錄都進入左邊的listbox中，但是實際運行之後，確是僅有倆筆進入到左邊的listbox中，並且，還是第一筆和第三筆進入到左邊的listbox中，並彈出錯誤對話框。 我的

procedure Tpinbsydj.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
if listbox2.ItemIndex=-1 then exit;
   for i:=0 to (listbox2.Items.Count-1) do
   if listbox2.Selected[i] then   奇怪的是循環執行的時候，是第三筆沒執行，而非第二筆。
   begin
      listbox1.Items.Add(listbox2.items.Strings[i]);
      listbox2.Items.Delete (i);       end;    end;

我的listbox-->properties-->multiselect:=true

這行 for i:=0 to (listbox2.Items.Count-1) do 改成如下試試:

  for i := ListBox2.Items.Count - 1 downto 0 do

-- 棒球是從兩出局開始的.

多謝！