如何在THorzScrollBox中滚动TListview？

procedure TForm1.ListViewMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  ListView: TListView;
begin
  ListView := TListView(Sender);
  
  // 根据滚动方向调整滚动距离
  if WheelDelta > 0 then
    ListView.Scroll(-ListView.ItemHeight, 0)
  else
    ListView.Scroll(ListView.ItemHeight, 0);
  
  Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  HorzScrollBox: THorzScrollBox;
  ListView: TListView;
begin
  // 创建THorzScrollBox控件
  HorzScrollBox := THorzScrollBox.Create(Self);
  HorzScrollBox.Parent := Self;
  HorzScrollBox.Align := alClient;
  HorzScrollBox.AutoScroll := True;

  // 创建TListView控件
  ListView := TListView.Create(Self);
  ListView.Parent := HorzScrollBox;
  ListView.Align := alTop;
  ListView.OnMouseWheel := ListViewMouseWheel;
  
  // 添加一些列表项用于测试
  ListView.Items.Add.Caption := 'Item 1';
  ListView.Items.Add.Caption := 'Item 2';
  ListView.Items.Add.Caption := 'Item 3';
  ListView.Items.Add.Caption := 'Item 4';
  ListView.Items.Add.Caption := 'Item 5';
end;