stop := (size - SIZEOF(pt)) / SIZEOF(pt); как это работает?

[Cs-Cs]

и строку

stop := (size - SIZEOF(pt)) / SIZEOF(pt);

можно было написать проще и понятнее для человека:

stop := (size - 4) / 4;

Так не принято делать во всех языках программирования. То, когда подставляют непонятные числа, называется "Магические числа" и за это во многих компаниях серьёзно наказывают.
Поэтому здесь они и применили SIZEOF, и это правильно, хоть даже и будет известно что при 32-битных указателях это всегда равно 4.