Код:
const
// размер одного блока карты:
blockSize=32768; // что равно сдвигу в лево на 15 бит
var
xbn,ybn,x,y,bx,by,xb,yb: integer;
begin
// зависимость номера блока от координат:
xbn:=(x div blockSize - x shr 31) + 20;
ybn:=(y div blockSize - y shr 31) + 18;
// расчет координат блока:
bx:=(x div blockSize - x shr 31) * blockSize;
by:=(y div blockSize - y shr 31) * blockSize;
// расчет координат внутри блока:
xb:=x - bx;
yb:=y - by;
end;