Hola kdemia.
No entiendo muy bién tu última pregunta, pero si quisieras hacer algo mas "a medida" al código de tu primer consulta:
Código Delphi
[-]
...
type
TIntBytes = Array[0..3] of Byte;
procedure CargarArreglo(var V: TIntBytes; Num: Byte); var
i: Byte;
begin
for i:= 3 downto 0 do
V[i]:= (Num shr i) and 1;
end;
Que sería similar a llamar a IntToBin(n, 4). Te estarías ahorrando el pasaje al arreglo, eso sí...
Saludos.
Edito: Me llamaron mientras estaba editando y no ví tus 2 nuevos mensajes. Pero veo que ya encontraste otra solución, me alegra mucho