[angvelem]

Сообщение от c1pg

... Цикл построен правильно ...

Уверен?

Код:

  for i:=0 to img1.Picture.Width do
    for j:=0 to img1.Picture.Height do

что даст? От 0 до размеров изображения, то есть, на 1 больше.