Description

This example demonstrate the use of the System Lo function to store the low byte of a word or integer into a byte.

Code

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