[<Sergio>]

Empezado por elcaracas

b:=round(f[i,j]/256); {b:byte}

¿Seguro que funciona bien para este caso?

b:=round(65535/256);

Prueba con desplazamientos que son más rápidos:

b:=(f[i,j] shr 8);