... type TMyInteger = array[0..3] of byte; ... var MyInteger:TMyInteger; N:Integer; ... Pointer(MyInteger):=Pointer(N); ...