Zitat von
Arnulf:
pbyte(integer(p2)+i)^-pbyte(integer(p1)+i)^;
Das Byte in P1+i könnte größer sein als das in P2+i -> Range-Check.
Folgendes könnte trotz Range-Check funktionieren (habe gerade keine Delphi zur Hand):
Byte(PByteArray(p2)[i] - PByteArray(p1)[i]);