Separar los bytes de una variable integer

[modulay]

Hola de nuevo gente.Aquí vengo con otro dilema
Tengo una variable entera que albergará un valor comprendido entre 0 y 32625 (15 bits eficaces).
Lo que quiero es sacarle esos dos bytes por separado para enviarlos como parámetros independientes.
Anduve cacharreando la ayuda de delphi pero no encontré nada potable
¿alguna idea?

[Mick]

Hola,

var
 n:integer;
 b1,b2:char;
begin 
  n:= $EA03;
  b1:= PChar(@n)[0];
  b2:= PChar(@n)[1];
end;

Saludos

[modulay]

Hey gracias por contestar tan rápido.
Anda de lujo.
Saludos.

[modulay]

Seoane la forma que tú propones me resulta más familiar,algo he lidiado con el assembler...aunque ya me estaba poniendo a hacer cambios a string y demás warrerías afines jeej
Saludo

[[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;