Description

This example demonstrates the use of the System Hi function to store the high byte of a word or integer into a byte.

Code

procedure TForm1.Button1Click(Sender: TObject);
var
  B : Byte;
begin
  B := Hi($1234);
  ShowMessage(Format('High byte of $1234 = $%x', [B]));
end;