Спасибо за подробное разъяснение, я бы сам с этим долго разбирался. Вообще, очень интересно, с виду ничего лишнего, разве что только вот это, не совсем понятно зачем --
Вот это -- str2int(ToString(Data)), не очень быстрая операция, особенно в цикле, но для данного примера, вполне пойдет.
А вот так -- val2 := GetDC(str2int(ToString(Data)));, почему нельзя сделать

------------ Дoбавленo:


Вот, выпускаю в свет первую (надеюсь, последнюю ) версию Img_Gradient

Пример в архиве (расчитан на компоненты b168). Жду отзывов и предложению (радугу не предлагать )

См. топик ниже -- ver 2.00