Код:
for i := 0 to 3 - 1 do // 1, to 4, dep. on pixelformat
Данная строка подразумевает, что оба битмапа имеют формат
pf24bit, что конечно не обязательно верно.
Указанный код работает и считает верно. Отличных друг от друга байт (не пиксел) 384. Изучи способ хранения пиксел при разном цветовом разрешении.