[angvelem]

Код:

       for i := 0 to 3 - 1 do // 1, to 4, dep. on pixelformat

Данная строка подразумевает, что оба битмапа имеют формат pf24bit, что конечно не обязательно верно.
Указанный код работает и считает верно. Отличных друг от друга байт (не пиксел) 384. Изучи способ хранения пиксел при разном цветовом разрешении.