Separar los bytes de una variable integer

[[seoane]]

Pues asi, de repente, se me ocurre esto:

Código Delphi [-]
var
  i: Integer;
  b1,b2: Byte;
begin
  b1:= i and $FF;
  b2:= (i shr 8) and $FF;
end;