Плавный скрол любого списка в пару строк. Delphi. FMX

Написал небольшой класс, который позволяет применить плавный скрол для любого компонента, наследуемого от TCustomScrollBox. Это списки, скролбоксы и т.д.