Модуль: System

Описание
Функция возвращает старший байт значения аргумента X, как беззнаковую величину. Аргумент должен иметь тип Word или Integer. Значение типа Integer всегда обрабатывается, как 16-разрядное значение, даже в том случае, когда оно 32-разрядное.

Пример
var
   X: Integer;
   Y: Byte;
begin
   X:= 4660;       // X := $1234
   Y:= Hi(X);       // Y := $12
end;