Delphi 10.3 FMX How to scroll a tVertscroll with a tListbox inside

Question

I have some components inside a TVertScroll, inside there is also a tListBox with ListStyle = horizontal.

Screen scrolling works up or down correctly when selecting t