Полностью переписан код с использованием новых возможностей модулей ImgSharedUnits