Iliya, я не понял твои мучения, когда есть готовая реализация в компоненте GrayScale, построенная так же на функции ScanLine