-----------------------------------------------------------------
destructor Done; virtual;
Перед вызовом для уничтожения всего объекта деструктора Done, наследуемого из TWindowsObject, уничтожает объект TScroller в Scroller (при его наличии).