Algorithm Math Delphi

Title: fastly retrieve the high-order word from 32bit var?
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.