The HiWord function retrieves the high-order word
from the given 32-bit value.
Instead of using HiWord(var32)
use: Word(var32 shr 16)
this is over 60% faster then calling HiWord() function.
Don't make procedure or function out of it (you'll kill the speed).
You could use Word(var32) over LoWord(var32)
but it's less then 1% faster.
********
Die HiWord Funktion extrahiert die das höherwertige Wort (Word) von einem
gegebenen 32-bit Wert.
Anstelle von HiWord(var32)
Verwende: Word((var32 shr 16)
Dies ist über 60% schneller als die HiWord() Funktion
Man könnte auch Word((var32) anstatt LoWord((var32) aber dies
ist weniger als 1% schneller.