Цитата:
|
for i := 0 to Image.Height - 1 do
|
Лучше так не делать. Размеры TImage могут отличаться от размеров TBitmap в нем. С Canvas'ом может, и пронесет, но при прямом доступе к памяти(через Scanline) может вылезти Access violation (уже встречался с этим)