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

[Schneider]

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

Вот по моему, не совсем правильно, поскольку в 64 битной системе адрес будет 8ми байтный а REAL останется 4 байта, вроде, и тогда не переносимость кода.