我在Form之event FormMouseWheelDown及FormMouseWheelUp 設計兩段程式碼如下，目地為使操作滑鼠中鍵滾動時可變換ListBox項目。結果做出來了如影片所示。
然而有一瑕疵，即滑鼠中鍵滾動時游標移動兩個項目，我希望能一一移動，請問高手大大可有解方? 謝謝

//------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{
  ListBox1->SetFocus();

  if(ListBox1->ItemIndex < ListBox1->Items->Count){
    ++ListBox1->ItemIndex;  //往下切換項目
    //----- 顯示項目名稱 ---
    String itm = ListBox1->Items->Strings[ListBox1->ItemIndex];
    Edit3->Text = get_window_tlt(itm);
    //----- 顯示項目位置 ---
    Label20->Caption=(String)ListBox1->ItemIndex + " / " + (String)ListBox1->Items->Count; 
    //----------------------
  }
}
//------------------------------------------------------------------------

void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
 bool &Handled)
{
  ListBox1->SetFocus();
 
  if(ListBox1->ItemIndex>0){
    --ListBox1->ItemIndex;  //往上切換項目
    //----- 顯示項目名稱 ---
    String itm = ListBox1->Items->Strings[ListBox1->ItemIndex];
    Edit3->Text = get_window_tlt(itm);
    //----- 顯示項目位置 ---
    Label20->Caption=(String)ListBox1->ItemIndex + " / " + (String)ListBox1->Items->Count; 
    //----------------------
  }
}
//------------------------------------------------------------------------

https://youtube.com/shorts/f_cENmRz5Vw?feature=share