How to convert an integer to 3 hexadecimal bytes Delphi

How to convert an integer to 3 hexadecimal bytes Delphi
For example, the integer 149259 (all 6-bit data integer number) is converted to 16 into 2470B and then divided into three bytes 0B, to achieve code
Example
Var
Id:integer;
BYTEBUF:ARRAY[0..2] of Byte;
Begin
ID: = 149259;
..........
Bytebuf[0]: =//02
BYTEBUF[1]: =//47
BYTEBUF[2]: =//0b
End
------to solve the idea----------------------

Var

Id:integer;

BYTEBUF:ARRAY[0..2] of Byte;

Begin

ID: = 149259;

Move (id,bytebuf[0],3); The byte order will be the opposite of your request.

End

------to solve the idea----------------------
Var

Id:integer;

BYTEBUF:ARRAY[0..2] of Byte;

Begin

ID: = 149259;

Bytebuf[0]: = (ID and $FF 0000) SHR 16;

BYTEBUF[1]: = (ID and $00ff00) SHR 8;

BYTEBUF[2]: = ID and $0000ff;

End

How to convert an integer to 3 hexadecimal bytes Delphi