Si entiendo bien la pregunta, se podría hacer algo como esto:
Código Delphi
[-]
type TArreglo = array [1..SizeOf(Integer)] of Byte;
procedure Algo;
var Entero: Integer;
Arreglo: ^TArreglo;
Ind: Integer;
A: String;
begin
Entero:= 5;
Arreglo:= @Entero;
A:= '';
for Ind:= 1 to SizeOf(Integer) do
A:= A + '[' + IntToStr(Arreglo^[Ind]) + ']';
ShowMessage(A);
end;
Lo que hacemos es tener un puntero a un arreglo de x bytes (probablemente 4, pero nunca hay que fiarse de la longitud de un Integer, porque el tamaño puede variar), y una variable Integer propiamente dicha. Después asignamos al puntero la dirección de memoria del entero y listo.
Espero sirva. Saludos.